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1.0 INTRODUCTION 
1.1 ABSTRACT 
THE RMO3 SUBSYSTEM FUNCTIONAL Ter 1S Ome A ST ore 
USES FUNCTIONAL MEANS 10 VERIFY tg ne Tie 003 ie 1k 
SUBSYSTEM. IN PARTICULAR, THE PROGRAM "SERVES OLLOWING 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC emt ioe OF oe 
DISK TIONS, VE, INCLUDING MECHANICAL POSITIONING AND DATA 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY FUNCTIONALITY OF THE RMOS SUBSYSTEM, INCLUDING THE 
, MASSBUS ADAPTER AND THE DISK DRIVE. 


a gt Mo Pon? 1 BAIEELY, PRT 1 TESTS HOUSEKEEPING 
ICAL POSITIONING OPERA “Pratt 2 TESTS WR READ AND 
READ. ERITE CEC CHECK x operations NeGis Be TA. oi, _— c tess oa 


NOTE: PARTS 2 AND 3 OF THE FUNCTIONAL TEST LEAVE 
2 HEADER ON THE MEDIA. THE PACK SHOULD BE 
REFORMATTED RUNNING THESE TESTS. 








2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE ‘THE RMO3 SUBSYSTEM 


PDP-11 PROCESSOR 


a 
— 
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16K MEMORY 
KWii-L OR KW11-P CLOCK 
PROGRAM LOADING DEVICE 


TERMINAL 
init Groen Test, 


WHERE THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 ADAPTERS, DISK 
DRIVES AND DISK PACKS. 


SEE ENS Ra TERS 


WON CWO 


FRESH SIERRA EOS EO NOES 
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2.2 MEDIA REQUIREMENTS 


cole ee ule eek ae 


ORMATION BECAUSE THE 
WILL BE WRITTEN DURING THE TES 


NOTE 


PROGRAM IS LOADED VIA THE RMO3 
S NOT TESTED UNLESS THE 
IFICALLY ENTERS THE DRIVE 

CONSOLE DIALOGUE. 


WHEN THE 
DRIVE O TT 
OPERATOR SPEC 
NUMBER DURING 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 


RMO3 DISKLESS DIAGNOSTIC, DZRMJ-A 


3.0 OPERATING PROCEDURE 

3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 
. PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE; 
-XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


NOTE 
WHEN THE PROGRAM IS LOADED VIA THE RMO3 
OR = THE 


IVE O JIS NOT TESTED UNLESS 
OPERATOR SPECIFICALLY ENTERS THE DRIVE 
NUMBER DURING CONSOLE DIALOGUE. 


3.2 SWITCH OPTIONS 


OF THe BRD OWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 


SE@ 0009 
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Eas aula {OOF oN Ee (CURRENTLY BEING EXECUTED) 
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PAGE S 
ails INHIBIT ERROR TYPEOUTS 
Sil ae ITERATIONS 
Suid ERROR 
SWO8 LOOP ON est IN SWO7-00 


THE LOW ORDER 8 SWITCHES (SWO7-SWOO) USED IN CONJUNCTION WITH 
os on SPECIFY THE OCTAL NUMBER oF TH THE TEST WHICH THE PROGRAM WILL 


3.3 STARTING 
THE PROGRAM STARTS AT LOCATION 200, WHICH PROVIDES WORST CASE 
TE T af gnortt 1F RUNNING TN AN AUTOMATIC ENVIRONMENT. IF RUNNING IN 
AND-ALONE ENVIRONMENT. THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW 

THe TOPERATOR TO CONTROL TEST CONDITIONS. 


3.4 HALTING 
THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 


3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200. 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 
TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 


THE PROGRAM 
IS STARTED AFTER BEING L PROGRAM IDENTIFICATION DOES NOT OCCUR 
IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN NING ie IT ENTERS A 
cosa SRE LAER Btn PE: 

THE FIRST QUESTION ell OUT IS: “TYPE HELP TEXT (Y OR N)??". 
IF THE OPERATOR RESPONDS WITH A Y, THE PROGRAN WILL TYPE A BRIEF HELP 
MESSAGE WHCIH WILL LIST SWITCH OPT Ttons, E 


SEQ 0011 


wayeaee 38 
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cron ADDRESS YOR 1 me Le yous AODRESS OF 
"Bead ee 


weetne 
ae Dt PRS Pentre 
a pee cete| Sy Sala ee 


TOR Types ICES ARE TESTED. OTHERWISE, 
Tree The NORGE DEVICE(S) HE WANTS TESTED, AND 
OE RRINETE fits INPUT WITH Mee TeR 


4.3 PROGRESS REPORTS 
PASS REPORT OCCURS EACH TIME THE PROGRAM IS _ EXECUTED 


AN END OF 
FOR ALL pie: IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 


THERE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


a stipe OF THE ERROR CONTAT OF THE 
HA Cente GE He Mier ce cTes NE es FS 
Oy eet Eee E Unie” "FE Uae La 


menos RDERS ND "pate Th PERTININENT 7b THE THE. ERROR, INCLUDING EXPE 


a 
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SEQ 0012 
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5.0 ENVIRONMENTAL SUPPORT 


$.1 yaaa elbees oa ya 
TIONAL TEST IS EXECUTABLE POP-11 


IES a I Ror HL udbUT OT He SYSTEM I eu I sera. 


Sistain DATA TRANSFER OPERA 


5.2 DUAL PORT gether oie 
TIONAL TEST DOES NOT PEK nn, i. 


pn, PORy roo a M4 DUAL BE AF eft Plt THe DUA DUAL POR UTPORT °s Maine 


is & TO THE IATE PORT (A OR B 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMO3 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT IS_NOT USED DURING THE RMO3 SUSBYSTEM 
FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 


RMO3_SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND 
T11_ IN BOTH DUMP AND AUTOMATIC MODES. FURTHE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RMO3 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RMO3 IS THE XXDP S OADING DEVICE. 
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415 5.7 OPERATING SYSTEM COMPATIBILITY 
417 THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 
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6.0 TEST DESCRIPTION 


CONTROLLER ACCESS TEST 
PURPOSE : 


TO VERIFY THAT THE UNIBUS ADDRESS OF THE RMO3 SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION SBASE. 


PROCEDURE : 
THE TEST TRIES TO ACCESS ALL LL __MASSBUS CO REGISTERS 
Tre fest, a Te TEST FAILS SF ce] "EUs BR COMTENTS 5 JGHORED DURING 
TF MERON UTE LOCATION Ue 1S-0, THE PROGRAM. WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR ‘TO CHANGE THE SBASE 


ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


DEVICE AVAILABLE TEST 
PURPOSE : 


TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING, 
AND TS NOT LOCKED OR PROGRAMMED TO THE ALTERNATE PORT. 


PROCEDURE : 
THIS TEST LETS. THE DEVICE AND READS CONTROL STATUS 
REGISTERS 1 AND 2 TO IFT ee enaToeS BIT iio ft IS AVAILABLE 


c 

FOR TESTING rs. INDICATED BY STATUS, BIT 11 OF RMCS1 AND NED 

STATUS, BIT 1 RMCS2. THE RESULTS OF THE TEST CAN VARY AS 
FOLLOWS: 

ISTANT DEVICE - cE Is § NONEXISTENT OR IS LOCKED 

ON THE AL TE PORT AND IS ORE NOT AVA OR TESTING; 


-DEVICE NOT AVAILABLE - THE DEVICE EXISTS BUT IS SEIZED BY 
THE ALTERNATE PORT AND IS NOT AVAILABLE FOR TESTING; 


-BUS TIMEOUT - THE MASSBUS CONTROLLER FAILED TO DETECT A 


SEQ 0015 


OZRMDA - 
OZRNDA.P11 
474 


BOe 
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-DEVICE AVAILABLE - THE DEVICE IS AVAILABLE FOR TESTING. 


NEXT DRIVE TO BE TESTED "Sr the Device {s NOT evalinae 


DRIVE TYPE TEST 
PURPOSE : 
TO VERIFY THAT THE UNIT UNDER TEST IS AN RMO3 SINGLE PORT OR 
PORT SUBSYSTEM. 


PROCEDURE : 
cTED. Devi IFI Mat vice Tc’A orn PORT 
Se tr Seog i IE et elec ena gt 


POOGRAR SUBPASS HANDLER WHICH WI 
NeXT DEVICE FOR a TESTING. 


WRITE/READ HEADER AND DATA (FORMAT) TESTS 


FERRER CORR ICR BSBIRASER OO IAIN 


THOUGH EAH TEST. QOEACISES 8 DIFFERENT winIsele 


INITIAL LIZED MO FECAL IORATED IF =F IF pd ae ron cr actin hat 
ial St, Et 


UU Ut 
fos Rae Bas oe Bn Rs on ee 
WONOW£WMEO 





SURE RRES TES 


AME CUTION free Wot THEN THE PROGRAM 
EXECUTES READ HERDER ARO 1 Soins, boos. HEMT VERIFYING 
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THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 


as ‘HERS ERT "Te BO BOCK THLE OF Tie LAST 


SPECIFIED OTHERWISE, ALL TESTS ARE IN 16 BIT (32 
FCTOR) FORMAT. 


FORMAT ZEROS - 18 


E02 


SEQ 0019 


or : =e ‘ Sig 
te : cr : “se 
i : ray = di 
Bie : Ee 5 a 
= ws eesegc r 
ae ogg . 
“ : Eee g : 25 
“3 oregce Eo EBs 
/ g fee OE ie 
; cree ne aelsee ; ¥ . 
, fe «ss 2 
: , ce Beerge OR OR ee 
an an: Ca a 
S Ye ed = cia 2 wots § = . - wees 
= whee & 2 § eet? of be oF Bt 
2 
: 
BS 
zt 
ei 
E 
ff SORERGIAGIARARISAASRAAIAGSTOSCEEE SSAA STOO OEE IES 
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POETS 
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PAGE 30 
FORMAT ONES 
penne He SHEMOEN OAD Dart VERIEA ING TRE nei Burtt trie 
WRITE BUFFER. FIELD 15 A CONSTANT 


He DRIVE SHOULD USE NORMAL. ba 


FORMAT CHECK ONES 


THE TEST FORMATS AN ALL ONES DATA FIELD PERFORMS A 
WRITE CHECK HERDER AND DATA COMMAND, GERIEYING THAT HAT THERE ARE NO 


FORMAT CHECK ONES W/ WCE ERROR 


THE TEST FORMATS AN ALL ONES DATA FIELD 
THE LAST WORD OF THE WRITE BUFFER. A WRI 
COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 


FORMAT MULTIPLE SECTORS 


THE TEST SEEKS TO CYLINDER O TO INSURE THERE Is 
. MOTIONS DURING count TE HEADER AND OA 
COUNT RING THE WORD COURT oun oe ia i 
OR ALL OF THE FIRST SECTOR AND THE THE SECOND SECTOR 


FORMAT WITH HEAD SWITCHING 


THE TEST SEEKS TO CYLINDER 0 TO I THERE IS NO HEAD 
MOTION DURING DATA TRANSE ER. THE WRITE AND DATA COMMAND 
STARTS WITH CYLINDER 0, TRACK 0, SECTOR 31. THE WORD COUNT 

EQUAL TO MULTIPLE SECTORS WitcH CH CAUSES THE SUBSYSTEM TO SWITCH 


GOe 
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44 FROM TRACK 0 TO TRACK 1 AFTER THE FIRST SECTOR IS WRITTEN. THE 
READ AND DATA COMMAND USES THE SAME WORD COUNT AND 
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FORMAT WITH IMPLIED SEEK 


FORMAT WITH MIDTRANSFER SEEK 
THIS TEST WRITES ee SECTORS STARTING WITH CYLINDER 
fl CAUSING A MI AFT 


0 

SECT 1 TRANSFER ER THE FIRST 

SECTOR Is WRITTEN. THE SAME SECTORS ARE READ WITH READ HEADER 
AND DATA COMMAND. 


FORMAT EACH SECTOR ADDRESS 


HEADERS AND DATA OF EACH SECTOR ON CYL oot fre 
FORMATTED AND READ WITH THE PROGRAM VERIF SFE ADERS AND AND DA 


FORMAT EACH TRACK ADDRESS 


THIS TEST FORMATS SECTOR O OF EACH TRACK ON CYLINDER O AND 
READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND DATA. 


FORMAT PRIME CYLINDERS 


THIS TEST FORMATS AND READS SECTOS O, TRACK 0 ON EACH PRIME 
CYLINDER, I.€., CYLINDERS 1,2,4,8,...,5l2. 
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FORMAT LAST SECTOR 


cyLIMDEA” O88, “FRREK' A) “SeCTOR al, Ato VERuFieS ran Cat shits 


FOR W/ AOE ERROR 


THIS TEST READS MULTIPLE SECTORS STARTING WITH THE LAST 
SECTOR AND VERIFIES THAT AOE STATUS SETS. 


FORMAT INVALID SECTOR ADDRESS 


THIS T USES AN ILLEGAL SECTOR ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


FORMAT INVALID TRACK ADDRESS 


THIS TEST USES AN ILLEGAL TRACK ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


FORMAT INVALID CYLINDER ADDRESS 


T USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT 
IAE sta is TS. 


FORMAT AT OFFSET 


THE PROGRAM SETS OFFSET MODE AND EXECUTES A 
he  waieieel VERIFYING THAT OFFSET MODE IS RE 


SEQ 0023 
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IVC FORMAT TEST 


nove. HET Est heh fem By ae TT ING AND HEBER Sie DATE IAGNOSTIC 


VERIFIES THR Ue A STATUS SETS. THE He TEST IS REPEATED 


FORMAT ERROR TEST(18 AND 16) 


For @ SINAE Secon IS ee WITH THE croais ee aT 
RAN VERIFYING THAT -FORPAT™ ERROR STATUS 1 


T 
FORMAT WITH THE PROGRAM vERIEYA S 
Set. PROCEDURE I ATED uit THE SECTOR WRITTEN IN 
18 BIT FORMAT AND READ IN 16 i FORMAT. 


FORMAT HCE (FIRST AND SECOND HEADER WORDS) 


THESE TWO TESTS WRITE AN INCORRECT HEADER THEN READ THE 
HEADER AND IFY THAT THE CORRECT HEADER ERROR IS DETECTED. THE 
TESTS SETUP THE CORRECT HEADER, THEN COMPLEMENT BIT O AND USE THE 
MODIFIED BUFFER TO WRITE THE HEADER. THE PROCESS IS REPEATED 
UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED. 


SEQ 0024 
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;PROGRAM REVISION #001 
.TITLE OZRMDA - RMO3 FUNCTIONAL TEST, PART 2 
; HCOPYRIGHT (C) 1977 a 

ive, een ea 

j HPROGRAN BY DOUG RIIKONEN 

THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
#PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 

STh=t 

-SBTTL OPERATIONAL SWITCH SETTINGS 

SWITCH USE 


;# 

;# 

;# 

if rt] tobe on FESP 

i 13 INHIBIT ERROR TYPEOUTS 
i 12 ENABLE “Tea STATUS 
% ii a TIONS 

i 9 LOOP ON ERROR 

i* 5 eS ON TEST IN SWR<7:0> 
+ % N12e8 

7 g TN64 

pas The 

+i : TN4Y 

* i TN2 


3% TNL 
-SBTTL BASIC DEFINITIONS 


AST TIM, SRONESS OF TH" STACK POINTER ##% 1100 #%# 
= 
EQUIV » ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
: MISCELLANEOUS DEFINITIONS 
T= ;CODE FOR HORIZONTAL TAB 
LF= 1 $3 FOR a 
= 1 $8 F' TURN 
CRLF= 200 38 FOR CARR RETURN-LINE FEED 
PS= 177776 ;;PROCESSOR STATUS 
EQUIV Foy0an 
STKLMT= 1 ;;STACK LIMIT REGISTER 
PIR@= 177772 se 'T REQUEST REGISTER 
DSWR= 1 ; | HARDWARE TCH REGISTER 
DDISP= 1775 ; ;HARDWARE DI Y REGISTER 


;#GENERAL PURPOSE REGISTER DEFINITIONS 


eg tee aie 


* GENERAL REGISTER 


0027 


MOe 
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OZRMOA.P11 


Seeocees 


aataaeaata 


Qzwenws EoSSTRERs =o 
& 


azgates Epebeeeas 


eee Bees 
8 


carve: ow 


ce SWITCH DEFINITIONS 


er as 





DEFINITIONS (BITOO TO BIT1S) 


nae oeiBeg 


TALAG MARL 
od A eet 

4 40-4 0-4 4 0-4 
-@MOOOOOOOM 
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BASIC DEFINITIONS 


SHndsuclas 


. fe gor te Wecro® hat 
Re vec= 10 338 ¥ AND OE EAL fe FRUC TIONS 
C= 14 + TRACE TRAP 
OTVEke 20 OTST OUNDUT TRAN C1OT) #RSCOPEXs 
Ke 4 HPOWeR PRC 
C= 30 ; ;EMULATOR (EMT) ##ERROR#* 
33 TRAP TRAP 
BvEcs GH ii TTY PRINTER VEE 
= 
PrRBVEC= S40 tt PROGRAM ATER VECTOR esr VECTOR 


-SBTTL RMO3 REGISTER BIT DEFINITIONS 
;RMCS1 CONTROL STATUS REGISTER 


2 BIT11 DEVICE AVAILABLE-READ ONLY 
FY © TOS * FUNCT 
OBIT fatat 
Fl = BITOe2 Hats ON 
FO : BIT Hy Ton KODE 
PRCHSK = BITOD, : ton CODE MASK 


;FUNCTION CODES (BITS 01-05 OF RMCS1) 


i 





aE 


;READ IN PRESET 


; 
; 
RETURN 0 CENTERLINE COMMAND 


SEQ 0028 
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Fe PRKACK = PACK ACKNOWLEDGE COMMAND 
PACARK = terete 
ILFe4 = 000024 ILLEGAL COMMAND 
3° = o 
fe cae = i Cerne 
981 ILF32 = H COMMAND 
9g2 ILFR4 = 000034 tT tte RAL CANONE 
983 ILF35 = 000036 *TLLEGAL COMMAND 
3e4 1001 Les = DOC ; COMMAND 
= ire tet See 
H000 LFY = DOC ; COMMEND 
987 OO0046 ILFYS = O00046 ia G COMMAND 
oe renee a Beeee8 HETTE SER PEAR EA ORD Bara 
990 000054 ILFSY = 000054 31 COMMAND 
gas reeed bee heeeda i 
993 000062 WH = 000062 “WRITE HEADER AND DATA COMMAND 
ay 000064 ILFEY = : 
ag ree eigal “3 - 
997 000072 Re = 000072 pes ein AND DATA COMMAND 
= Spoore rt tee = pone “r if ene 
1001 ;RMDA DISK ADDRESS REGISTER 
1003 gae000 Tay = BIT10 s TRACK § 4 
ine reared ee BI toa i Theck MOORES 1 
1006 googed SAlb = BI j SECTOR a 
1 eevee SAM z att i EC TOR ADDRESS 4 
1009 oooog2 SA2 = 3ITOI : SECTOR 2 
1910 000001 SAl = PITOO : SECTOR 1 
1018 ; TRACK, SECTOR MASKS 
1014 003400 TANMSK = 003400 TRACK ADDRESS MASK 
1015 000037 SADMSK = 000037 SECTOR ADDRESS MASK 
i ;RMDS DRIVE STATUS REGISTER 
1 ig 100000 ATA = BITIS ATTENTION ACTIVE 
1020 040000 ERR = BITI4 : I 
1921 PIP = BITI3 ‘POSITIONING IN PROGRESS 
; 01 00C MOL = BITle ited Tun on LINE 
1053 502001 ‘or OE girth : SEK TRANSFERRED 
1025 1000 PGM = BITOS : 
1026 eae DPR = BITOS *DRIVE PRESENT 
Ge? oodeou DRY = BIT07 : DRIVE REDY 
1 1 OM = BT Toe tOPESET Nobe ACTIVE 











CO3 
BEWDA-PLT SST ince?” Ree ReSSHER Grr Derinitiows O&O £9 0030 


1045S 


REPeP Free 


Be ae pees Bes Bane Beas fae Game ne Bane Be Pe Bak ban Get Bt Ds fae fae fee faa Gen ne D8 Ben ent ane Gon Pen bes Pan Bs ta Bes Pe De, 
RREBREBISN OSA ce ce ee ita 
V5 wo m A Ue 


Eber sonceeenis 





000377 
002000 
001000 
000400 
000200 
000100 
003700 


;RMERI 


3 ise peietrrstes teh fe 


A : 


dai 


SaPUPaASAESRAR ” 5 StS 


ERROR REGISTER 81 


Bitte DATA CHECK ERROR 
Tl TION I 

a i 

B Tl INVAL 


iReciere ay FICATION REFUSED 
REG 


; ILLEGAL FUNCTION 
DOCK! DTE! WLE! AOE! HCRC! HCE! ECH!? WCF FER 

ae eee OUSCKEEPING AND PO 1 DURING NON - DATA 
HOUSEKEEPING AND POSITIONING COMMANDS 


ATTENTION SUMMARY REGISTER 


- 377 sMASK FOR ATTENTION BITS 
LOOK AHEAD REGISTER 

. BITIO sSECTOR COUNT = 16 
© 1709 “SECTOR COUNT = 8 
= 1108 :SECTOR COUNT = 4 
= BIT *SECTOR COUNT = 2 
= BITOS *SECTOR COUNT = 1 

* 003700 sSECTOR COUNT MASK 
MAINTENANCE REGISTER 

WRITE ONLY BITS 

= BIT1s sDEBUG CLOCK 

. aoe OEM OSTIC END OF BLOCK 
> BIT12 :Dlagostic Freda 
> BITII :MAT OCK 
= BITIO *READ DATA 

: BITO9 SUNIT READY 

= BITOS "ON CYLINOER 

= BIT07 : 

= BITO6 ‘DRIVE FAULT 

rs BITOS ‘SECTOR PULSE 

2 BITO3 tWRITE PROTECT 

= BITO2 * INDEX PULSE 

- BITOL ‘SECTOR COMPARE 

- BITOO ‘DIAGNOSTIC MODE 





DO3 
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DZRMDA.P11  29-JUL-77 14:07" RMO3 REGISTER BIT DEFINITIONS 

ibs ; READ ONLY BITS 

1030 occ = BITIS iB ADCO 

= ; a 

tide fh = Gi iO. fh 

1o34 ESRC = BITI1 ENE SEARCH 

ipa PRR BitdS Ne Ee oat 

ite pe BY fern eR 

ins CONT = T ; 

tidy fcc «= SOOBTTOM ie Ect 

il MWD = > WR “pats BIT 

iit LS = Bits inet CTOR 

1104 LST x BITOL “LAST SECTOR AND TRACK 

ii DMD = BITOO ‘DIAGNOSTIC MODE 

it ;RMDT DRIVE TYPE REGISTER 

1109 NSA = BITIS yo mete So 

iti? ae Biti3 roviNe LeFO = 

= 

ite DRQ = Til REQUIRED 

1114 parat = ceed " mee por Vi are 

ig 2 : DR ce 

111? ;RMOF OFFSET REGISTER 

1119 FMT16 == BIT12 Bole T WORD FORMAT 

ll s T 

tis fel BITiO ESHPARE INHIBIT 

ile OFD = BIT07 [OFFSET FORWARD 

1124 

1125 -RMDC DESIRED CYLINDER ADDRESS REGISTER 

1126 001777 CYLMSK = 1777 ;MASK FOR CYLINDER ADORESS 

1128 ;RMMR2 MAINTENANCE REGISTER #2 

il . READ ONLY BITS 

es ROA z arfis ;PORT A REQUEST 

i133 fmt BITL3 fee CONTROL 

It s T12 ‘CORD Se sites TEST pil 

Us a! s Bitie CONTROL. OF 

il CH = BIT10 t CONTROL. OF 

1:3 2 BITO3 i TAG BUS 

is pone ss Bite ithe Bue 

140 BB06 == BITOS TAG BUS 

i14 pB80S = BITOS :TAG BUS 

il BB04 sg BITOY TAG BUS 





E03 


GISTER 


;MANUFACTURING DETECTED SECTOR ERROR 
CONTROL STATUS REGISTER 


;USER DETECTED SECTOR ERROR 





;MASK FOR REGISTER INDEX NUMBER 


88ss8 aS S53 we, 
a SS —— 
moog aooonoaa oa S8NZARANRMASS SF PRADRSSSSRRELK OF 


RMER2 ERROR REGISTER 2 


5 
4 
RMO3 REGISTER INDEX VALUES 


BEWDAPLT SSSI aso?” Rea REGISHER GIT DEFINITIONS 


8 
: 


IDXMSK 


gad © mcensex 5 yu  Peebenippeeebigpeeeessceess 


ee 


PFPPS PT RGUBTRRGFRAZSISSLLSBORARCRERRAR BaISSSBSBoRSKKTRR OS 


hd dd hd hy tb hh hg hd eh td a 
EE a mh Gt ht a dd dh dd dt a dh a th a td et 





ae 
— 
“3 


Bas Pe Bee Ft hs fe Po tn po 


Bees a3 


Res be Baan fn 
fururoro 
ee ee re 


wre 


be b= eh Os b> PS bs Be ae bh = = os 


PROPS Pe Pee PISS ANS 
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-77 14:07" RH CONTROLLER REGISTER BIT DEFINITIONS 


-SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
;RMCS1 CONTROL STATUS REGISTER 81 









sc = BITIS ;SPECIAL CONDITION-READ ONLY 
MCPE = Btri3 : TROL BUS PARITY 
002000 PSEL = BIT10 : 
001000 Al? = BIT09 : ION 
a OR erat Sel 
000100 IE = BITO6 S INTERRUPT ENABLE 
;RMCS2 RH CONTROL STATUS REGISTER #2 
i Blt BH MEER Sem oe 
eee HURIBUS PRRITY, OnLy 
NEM = BITL1 NONE TANT PETRY -FEO ONLY 
i + EB BtTOS errr 
000400 MDPE = BITOS ; - 
000200 OR & BITO7 : 
900100 IR = BITO6 ; 
CLR = BITOS : 
000020 PAT = BITO4 HT 
000010 BAI = BITO3 : 
u2 : : 
Ul = pirat ° 
uO = BITOO 
“UNIT SELECT MASK 
UNTMSK = 7 ;UNIT SELECT MASK 
-RNCS3 RH70 CONTROL STATUS REGISTER 
= 
SPEay = Bt rte cao: HIGH HOR WORD 
= BIT13 iba PAR LOW 
z BITl2 ie HIGH WORD 
a aia ter 
i = OB : 
a oT. 
= @ 
ae = BD e Rally Gee 
000001 IPCKD = BIT NVERT Poe PARITY CHECK 
-SBTTL RH REGISTER I 
1 os REGISTER 
we re ifonD COUNT REGISTER 
RMBA ss 04 BUS ADORESS REGISTER 
RMCS2 = 10 ‘CONTROLLER STATUS REGISTER 











DZRMDA - RMO3 eee Le PART 2 spp tt 30(1046) 29-JUL-77 15:01 PAGE 32 SEQ 0034 
CZRMDA.P11  29-JUL-77 14:07' RH CONTROLLER REGISTER INDEX VALUES 
1255 RMOB = 22 ;DATA BUFFER 
= 
me =O iO STATES Meister 03 
ABASE = 176700 ;UNIBUS ADDRESS 
1202S4 AVECTI = 120254 ;UNIBUS VECTOR ADDRESS AND PRIORITY 


-SBTTL TRAP CATCHER 


000000 .20 
3 ROL. LOCATIONS FROM 4 - 776 CONTAIN A “.+2, HALT” 
: 0 CATCH ILLEGAL TRAPS AND INTERRUPTS 
;#LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
174 2174 
000174 ppd DISPREG: .WORD O ;; SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD O ; SOFTWARE SWITCH REGISTER 


-SBTTL ACTI1 HOOKS 


5p, MERE EEE SESE SE EE SS a a a a a a a a HE HEE 
"HOOKS REQUIRED BY ACT11 


SSVPC=. ;SAVE PC 
e190 5;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“WORD. O ::2)SET LOC.S2 TO ZERO 

: =$SVPC He REE ToRE PC 





\SBTTL STARTING ADDRESS 
;THE PROGRAM STARTS AT LOCATION 200 
pooz00 Sonia? o0s322 INP ART ; JUMP TO START OF PROGRAM 
001100 -=1100 
“SBTTL APT PARAMETER BLOCK 


. > LESRELRKALASHHPERSY ELE LE REE RAERSERSSERSS REE RESALE ESHA EERE RERKEKE 
eer LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
jj ASEEEEESEEEUDEUESSEESEESESESESESEESSEES REERERE EMRE RSE 


p00024 a Hage @ POINT TO START OF PROGRAM 





sD Be bb = bt fe BP bP 8 Be BB bP bb 0 0 bb be 0 = pH bae Bes Po 
rinicicinieinisisi et Re ner k ad ty dat t 
— es -_ = 


ooode4 
oooo44 244 ;;POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 SAPTHOR 5 sPOINT Porton HEADER BLOCK 
001100 =. $X 
, HHH #6 M6 SEE AE AE AE SE a HE a a a a a a a a a HE 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 
001100 SAPTHD: 
001100 000000 SHIBTS: .WORD O ;;1WO HIGH BITS OF 18 BIT MAILBOX ADDR 
rete eee SMBADR: .WORD SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
O11 1 STSTM: .WORD 1 ;;RUN TIM OF LONGEST TEST 


TEST, PART 2 
14:07 


HO3 


MACY11 30(1046) 29-JUL-77 15:01 PAGE 33 
APT PARAMETER BLOCK 


SPASTM 
SUNTTH: 8 bervo ss 
TAGAOR 


IN SECS. 
ONAL RUN T 
;LENGTH MA 


OF 1ST PASS 


eos PARC 


WIGIGIG) 
Pere ee 
onou 


ee ee be Pee Be Be Be ne Pe Pn Be Be me = bo be as ee Pe Bn Os ae Pe Fe Penn Fan Pe Pee Pen hee Fe be Fes Pen bee =e bs fe Pen Pe Pe Pe 


SORTER REE ESO So Se EOR SORIA O RS oe Ot 


RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 34 
1 29-JUL-77 14:07 COMMON TAGS 


-SBTTL COMMON TAGS 


| kb-bdedeh-te-dehet-l-d-felslabeldedsd-teheiat-h-teledodetad-t-d-d-teb-b-laleh-beb-debet-tek-lelolateteialetattetel 
‘iTHIS ee yd VARIOUS COMMON STORAGE LOCATIONS 








#USED IN 
001114 : rns ;;START OF COMMON TAGS 
Botite : “BYTE fi ; ; CONTAINS het TEST NUMBER 
001117 G: .BYTE 0 i SCONTAT F HTeRarroM, cil 
He St ae a a tage 
2. * CONTA TECTED 
il 000 : 0 : 
ater ooosen ; ae 5 INSTRUCTION 
Balt ete : BRB 8 Ree cs & BRO” DATA. 
i 000000 : «WORD 0 D paTA 
BIS a ‘ Ps] 6 TO BE USED 
tise OB: : 0 ; ;AUTOMATIC MODE INDICATOR 
011 1 000 SINTAG: .BYTE 0 ; INTERRUPT MODE INDICATOR 
11 seaastat SUR: “hoa Bowe ; ;ADDRESS OF SHITCH REGISTER 
1156 177570 DISPLAY: .WORD DDISP 4 REGISTER 
lee 17eee ihe: ee i 1) 
Lge i77eee STPB: 177566 2: TTY PRINTER G. ADORESS 
ii? sits: 2 i Covrans : Banc TERS: REQUIRED 
Bie site: : te bi Cpa ith CHARS AFTER “LINE 
ee 99 
Bis 4 OU sre: ie gen eer] eo FLAG (BIT<07>=0=YES) 
001 STMP2: “WORD 0 : USER 
Bie et tes ee ENS 
: 0 :MAX. NUMBER OF ITERATIONS 
boii? Set ascrz £207) <377)<37?) HESOE Fo gett 
001 is : .ASCII ; QUESTION MARK 
B01 320 “Reel? “is ite FEED 





> 
s Jaa EE A aaAAAAAAAAAaH aaa AA HH AHHAHHHHHHHHE 
sjeeeee APT MAILBOX-ETABLE 


MMi Me SE HE Me HE AE 0b 0b AE EE a aa a a EERE EERE 


iEVEN 
001222 SHAIL : ;;APT MAI 
101222 go0000 SMSGTY: AMSGTY Hg YPE CODE 
001 000000 SFATAL: “WORD AFATAL :FATAL ERROR NUMBER 


SEIRREGR OBESE TOR ROR TRO 


ee 


0 CONG £ WTO 
88 
ad 


ee ae ee ae ee ae ae a ne a ae ae ee ee ee ee Oe pn be Be Be be be ee 


SEES LC ELSES 


1363 SB1S48 





001326 


JUL-77 15:01 PAGE 3S SEQ 0037 


PF HDC 

1 Lig ae ATESTN 3; TEST NUMBER 

A 
fe er 
Spt. “BS ASM. ey ean bs 
Set, 88 Ap a ms. 


oe oe oe a 
ae 
mm 
—_ 


' 
: 


| 
vinnie vente 
CERTERERRE RES LSIah 
Swowewe = ae sa san ° 


te Poet ome, , 11/40=04, 11745=05 


IT 10 
Bit gr 4 COATING. /—_— 


Her DOR RES nS. BYTE 
hen. TYPE =- (HIGH BYTE) 
a0 =001 





0 129 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 


riba. 


pal ie | em 


OR WORDS4 
OR 8S 
PTOR #6 
DESCRIPTOR WORDS7 
= Ic 
.MEXI 
; THE REGISTER INPUT BUFFER IS USED FOR 
sSTORING DRIVE STATUS 
GETBUF : 


RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 36 SEQ 0038 
1 APT MAILBOX-ETABLE 


29-JUL-77 14:07 
AReST ER Bap. SUFFER ;CONTROL, STATUS REGISTER 


wi 


i 








ia STER #2 
oy Rebar 
Te entenon aut AN Tie Wige Brie. A ZERO 


ee 


ag 
= 
Pa 
3% 
z 
: 
3 
3 


; 
“3 
: 
: 


001446 000012 


4 
w 
€ 
ee 


DZRMOA 

is 601356 gh ; WORD ieee 
lpg G2” Be. 
is RPL: ioe iATTENT : URRY REGISTER 
1438 Bol ali. bh GISTER #1 
Se re ig Is ate fe 
Se aah ley Sees ERSTE 
is a aoe i Sent ie fee #2 
fs ise feat: EE Pa TOE 

| RSET EN ETCH 

E 001376 PUTBUF : 

Wee ReS1O: ORD epee STATUS REGISTER 
i ee is fae 
ive OF ORD. ‘ORT TRECISiER 
as: i) aye i GISTER’ — 
iN y ‘Be ; 7 GISTER 
ms 8 Fc 

1474 ; 

ie : 

e 

Wee 


BES SS aRP RR RGSSRRTE a3 


DO dome he bh bh Bs be bab te pe he Pe he pe 


m 
a 


GOR 


03 
— FUNCTIONAL Me PART 2 pelea ety pey OT 15:01 PAGE 37 SEQ 0039 
A ENABLE IS SET IF THE BAD SECTOR oa eran ae BEEN RECOVERED 


001472 00000 ESE BMS HOR TET Henin eNeLE 


;LOCATIONS “ASNDC” AND “ASNDC™ CONTAIN THE CYLINDER, TRACK AND SECTOR 


iB ee Ay Ta 
cikeoe: “Hep Ubieie empress OF Ruy 0k 
EEL Saal 5 OTR HL ST 


001504 000027 GETINX: .BLKB 23. 5GET INDEX TABLE 





001533 000027 BUTINX: .BLKB 23. sPUT INDEX TABLE 


RMO3 FUNCTIONAL oar" PART 2 


OZRMOA - 
DZRMDA.Pi1  29-JUL-77 1 


001562 


MACY11 30(1046) 29-JUL-77 15:01 PAGE 38 
ERROR POINTER TABLE : we Fate 


-SBTTL ERROR POINTER TABLE 
ser IS ee added aL FN Trt ite FOR EACH x ALPRER CAN ran. 
Tony A at RUHR Bad rrzen 

; ¥NO ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

- EM HPOInts TO THE Pan oe 

f By siPOINTS 78 THe Bate 


;;POINTS TO THE DATA FORMAT 


NO3 


29-JUL-77 15:01 


POINTER TABLE 


SEQ 0041 


PAGE 39 


, PART 2  MACYLL 30(1046) 


29-JUL-77 14:07 


Pil 


DZRMDA - RNOS FUNCTIONAL TEST 


ci 

wn 

iw 

jas 
im 3 = “ 
4 “Fooa 
2 fe 5 re 

— =< iv 
g é ‘ 8 2 8 
a a wn s - oe 
a S a 5 z re g 2 
ae Bee 8 ae a ee eae Mics fee 
a = : 2 | Fee . 5 
= a rf G5 + B 2 s 
z = 3 tS ws 3 
: 8 8 ws 5 - w 
ai a Pe. 2 = 

ees es es zz ——e 2 = Stereres 
585 abcess bees s5E85 ow 25a nBoco S5sah 

BS Pee be aera tee I 








SG kk 8 kk kk ak ad ad ed dd dd ad ad ad wd dd wd wd ed wd wd wn eh ode w= SF ed ty 








BO4 


, PART 2 MACY11 ont ttis 15:01 PAGE 40 


SEQ O042 


ERROR POI 


A ee TIONAL TEST 
Pll a pe 14:07 


GO NOT RESET BUT DRIVE IS READY 
PARITY ERROR READING REMOTE REGISTERS 


INCORRECT FUNCTION CODE 
TRANSFER ERROR IS INCORRECT 


= SRaMRRMMARERUDERMETS 


Ud dd ad ad ad ad ad ag Oh hh mt 


00 

tf 

tt 

00 

r 
1601 001712 
1602 001714 


O64S34 
070526 


igor Goived Grane 


INCORRECT WORD COUNT 


INCORRECT BUS ADDRESS 


eerie tt 
888 8888 
Sine eieiete Tino @o 
a en eretuauauaeaes 
ODWOO0000 
kd a eg 45 


INCORRECT LBT STATUS 


ce 


Ree 86 (Re 


ee oe oe [nian bam bam! 


888& 8888 


RN a win hh bile eee 


ad ad ad md ed kd wh wd 


CO4 


29-JUL-77 15:01 PAGE 41 


SE@ 0043 


INCORRECT DISK ADDRESS 
INCORRECT CYLINDER ADDRESS 
INCORRECT WLE STATUS 
INCORRECT UPE STATUS 
INCORRECT WCE STATUS 
INCORRECT MDPE STATUS 
INCORRECT DCK STATUS 


INCORRECT WCF STATUS 


ny 8 


wos M5565 S55 <555 SSSR «EGG nEGaS saEGaS 


ce fe fe me me oe me ge 
; bess cool Eee Hl He ER 


5 MunMeesvor nes PraqNOgMNDIEI IIS TSE SN SAMASAA Pie h hhh bid 


SIS550LDDSIDLSSILISIIGSSSSSHHBSSSBB ODDS oe Rk Roe Roel =a 





04 


OZRNDA - RMO3 FUNCTIONAL TEST, PART 2 1 30 JUL-77 15:01 PAGE 42 oo44 
DZRMOA.P11 29-JUL-77 14: eA BINT ER tree _ 

1691 JERROR 31 INCORRECT ECH STATUS 

1682 ne0e2 1 


ae 
a 


;ERROR 32 DLT SHOULD NOT BE SET 


EPERREGReser ers] 








;ERROR 33 MXF SHOULD NOT BE SET 
1 EMT33 
1 EHT1 
traces Bptt 
i716 
7g ERROR 34. DTE SHOULD NOT BE SET 
1714 ents 
i ppt 
171 
1718 
1719 ;ERROR 35 INCORRECT HCRC STATUS 
1 EMT3S 
1 EHT1 
1 EDT1 
1353 EFT1 
1 
te ;ERROR 36 INCORRECT HCE STATUS 
1 EMT36 
Birt . 
| ppt 
eT 
He ;ERROR 37 37 INCORRECT FER STATUS 
El 
1 ppt i 
1 i 
173 
iat ;ERROR 40 DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 
is EHT1 
174% EDT1 
iP at 
1746 


ee te be ee en Be ae ae ae ne ee ee Be an be Be ae Be ae Be ae ae ae bn Be ae me Be ee fe ae ee be Pe Pe ae ae Be Pe Ps Pe Pe Pe ee Ps Pe Pe 


Resse RA SAR eS EERE ORS BIS SAAS SE LE RTER SO DMM S SS i 


et a » PART 2 EA! SOON) oe O77 Oat PAGE 43 SEQ OO4S 





- RMO3 
Pil 
;ERROR 41 LOST “MOL” DURING PACK ACKNOWLEDGE 
002162 EMT41 
002 1 1 
DOe ibs ag 
O21 l 
;ERROR 4e UNSAFE ERROR DURING PACK ACKNOWLEDGE 
002172 EMNT42 
002176 EDT 
02200 EFT 


"OPI" ERROR DURING PACK ACKNOWLEDGE 


<= 
36 
WwW 


ak 
qos, 
——e 


a we we oe we ae ie 
o5gs 


“RMR” ERROR DURING PACK ACKNOWLEDGE 


F 
= 


le 
14 


par 
be et 


“ILR” ERROR DURING PACK ACKNOWLEDGE 


“ILF™ ERROR DURING PACK ACKNOWLEDGE 


ee 


3. 
+ 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


g8 9a3g 





ua 
+4 
bs fe be 


FO4 
JUL-77 15:01 


OO46 


PAGE 44 


RMOS FUNCTIONAL TEST, PART 2 
23-JUL-77 14:07 


Pil 


, ASSUME 


MEDIUM IS ON LINE 
T RESET 


INCORRECT IAE STATUS DURING SEEK COMMAND 
OPI ERROR DURING SEEK - MEDIUM IS NOT ON LINE 
DN’ 


PIP IS STILL SET AFTER SEEK - SKI IS RESET 


DEVICE CHECK DURING SEEK COMMAND 
ATA DID NOT SET DURING SEEK COMMAND 


1 
1 
1 
1 
1 
1 
1 

EMTS3 
1 
1 
1 


Ss sem Raa == Ba — 
SEE owEEEE EEE EEE oo ESEE 


DURI 
LA 
; ERROR en SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


;ERROR S3 


"zx 


ae. cf 





| 


—=MUMT iN.Or wo {4 oD ¢ 
hh tt tt at tt aTaTbatds ue w wheter w wh mm F 


=o RO kd dk a kd kk a kh ad ah ak ad ek ak dk dd a ak ad dd ed ed a ed ed ed ad ad ed ea ad ed ded od dod od 








DZRMDA - RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 45 SEQ 0047 
OZRMDA.P11 29-JUL-77 14:07 ERROR POINTER TABLE 


ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
VOLUME VALID IS STIL SET 


cog = 
ee 
— 
be eee 
be 





REPORTED DURING SEEK COMMAND 


aa * 3 


070S26 
O7ore 
00000 
00000 
07058 
070652 


a 


D0237¢ 
7+ 


44 


a 

T 
— 
= 


“al 


; ERROR DRIVE DID NOT DETECT “IVC™ ERROR DURING SEEK 


get 


DRIVE EXECUTED A SEEK WITH ERROR SET 


Sehherirttt phi td SE RERRRARE Gas 
2 Gf ii ga fe ie 


Ho 


aaa 
—-— Fi 


~ 





UNEXPECTED ERROR SET IN RMERI 


wane 
a 


;ERROR 67 UNEXPECTED ERROR SET IN RMER2 


;ERROR 70 ERRONEOUS “IAE” ERROR DURING RECALIBRATE 


Bh oS he as Fe Ps te et ee me 0 Be be he Bs be bm fee Be = Bt be = be he Bh en ms pet Bes es ee es pe bee Be 





DZRMDA - RMO3 ag pe yest, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 46 SEQ 00"3 
OZRMOA.P11 29-JUL-77 14:07" ERROR POINTER TABLE 
915 002456 070652 EDT! 
916 O0e%60 070742 EFT 
a8 
; ERROR 1 “ILF” ERROR DURING RECALIBRATE 
Ree be a 
EDT! 
002470 070742 EFT1 
;ERROR 72 “OPI ERROR DURING RECALIBRATE DUE TO "MOL" =O 
002472 065374 EMT72 
002474 070526 ent : 
a7orae i 
; ERROR “OPI" ERROR DURING RECALIBRATE BECAUSE ON 


CYLINDER DIONT DROP 


saa3 ° 


;ERROR 74 “IVC” ERROR DURING RECALIBRATE - “VV" = 0 


; ERROR ERRONEOUS “IVC” ERROR DURING RECALIBRATE - “VV" = 1 


=e 
3855 


;ERROR 76 “SKI” ERROR DURING RECALIBRATE 


0706Se EDT1 


see 


;ERROR 77 “DVC” OCCURRED DURING RECALIBRATE 





SRERERMPRRRRRIRROR TS SP PP Pre RRR ROR RoMNRRNNNRRTSS ES 
RPA ASA eka Ra aR EE SS ht RPA USS TASS SC INIA a 


065470 
070526 EHT1 
eae " 
Tl 
“ERROR 100 LOST “MOL” DURING RECALIBRATE - “OPI” = 0 
o02ss2 o6sso2 ; EMT100 


PERESRERRSESSIG ISS SS 


OO Ob Fb 0 0 0 8 bb 0 te 


eae RoE 











aaa 


mre me 
fag ‘"oSas 


ag 


29-JUL-77 15:01 PAGE 47 
apr? SEQ 0049 


LOST “VV" DURING RECALIBRATE - “IVC™ = 0 


“ATA” DID NOT SET DURING RECALIBRATE 


“OM” DID NOT RESET DURING RECALIBRATE 


“PIP” IS STIL SET AFTER RECALIBRATE 


UNEXPECTED “ILR” ERROR DURING RECALIBRATE 


UNEXPECTED “RMR” ERROR DURING RECALIBRATE 


“UNS” ERROR DURING RECAL IBRATE - AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 






TIONAL TEST, PART 2 
14:07 


wi 

— 

@ 
t 


on SS SS Sf Ge 
a i So Hl ee Be i’ 


— 


JO4 
WACYLI 30(10NG)°9-JUL-77 15:01 PAGE 48 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEOUT-NED STATUS FAILURE 


DEVICE NOT AN RMO3 


RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 49 SEQ 0051 
29-JUL-77 14:07 ERROR POINTER TABLE 
HT1 
Tl 
EFT 


ERROR 124, RNAS NOT INITIALIZED BY UNIBUS 
| 121 
sERAOR 22, RMMRL NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 





pcre 


RMEC2 NOT INITIALIZED BY UNIBUS 


oe a 
SeeeeeEtE 
= 


RMMR2 NOT INITIALIZED BY UNIBUS 


a 


= 
a 
= 


ec 


DOITULW-OSSIER 
m— 
aR 
ee oe 


Ror 


454 


;ERROR 126 RMCS1 NOT CLEARED BY CONTROLLER CLEAR 


;ERROR 127 RMBA NOT CLEARED BY CONTROLLER CLEAR 


; ERROR RMCS2 NOT CLEARED BY CONTROLLER CLEAR 





LOY 


29-JUL-77 15:01 PAGE SO 


SEQ 00S2 


RMER1 NOT CLEARED BY CONTROLLER CLEAR 
RMAS NOT CLEARED BY CONTROLLER CLEAR 
RMMR1 NOT CLEARED BY CONTROLLER CLEAR 
RMDS NOT CLEARED BY CONTROLLER CLEAR 
RMEC2 NOT CLEARED BY CONTROLLER CLEAR 
RMMR2 NOT CLEARED BY CONTROLLER CLEAR 


RMCS1 NOT CLEARED BY ERROR CLEAR 
RMCS2 NOT CLEARED BY ERROR CLEAR 


peg y 3 é 8 8 & 


ott we eed og Coen Ieee eee oon I oe ed ed oe et od ot ey es Dees cette ae 


se Gat Shaah Skseh S55ab Shab Skseh Ssaas fsa 
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pled (4 B24 be bo eed 


[vT) ae - oe on om om os 


EMT140 


;ERROR 140 


» PART 2 


cur 
Soe oe heen I 
8583 aus 88S FFPR 
— ond oH ee wet etd et od ae end a ee oe 
- BeBe SEE Re3e RE TEry eye TEty 
=— 5oS 5OOG S5E AZOOG afalafe 
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070742 
066054 
B77 


0031S2 066160 
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MACY11 30(1046) 29-JUL-77 15:01 PAGE Sl 0053 
ERROR POINTER TABLE a 


; ERROR 


1 
Tl 
EFT1 


m _ 
7 <x 
ft he 
dt ee ee me 
£ 
— 


Tose 
ak a 


Gors's 
= 
44 w 
be ee 
x 
w 


= 


a 
be Be fre ee 
a 


RMCS1 NOT CLEARED BY DRIVE CLEAR 


RMDS NOT CLEARED BY DRIVE CLEAR 


RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR 


| 


NOY 
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-Pll = 29-JUL-77 14:07 ERROR POINTER TABLE 


;ERROR 15 MEDIUM NOT ON LINE 


DRIVE FAULT 


BERET 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


: 
a8 


sae 
& 


;ERROR 154 UNSAFE SHOULD NOT BE SET, AC IS LOW 


;ERROR 155 VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY OFFSET COMMAND 


san 


OFFSET MODE NOT RESET BY RTC COMMAND 


BEEE 
4 


tb ee oe 


RMOF NOT RESET BY RIP COMMAND 
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& 











poaul id uivaialies Renee ebaet tues a sisi ch ieee eat 
8 


pecrat parteees me tered 15:01 PAGE S3 


EHT1 
EDT! 
EFT1 


;ERROR 165 


RMDA NOT RESET BY RIP COMMAND 


RMDC NOT RESET BY RIP COMMAND 


DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 


OPI SHOULD NOT BE SET 


IVC SHOULD NOT BE SET 


IAE SHOULD NOT BE SET 


NEM SHOULD NOT BE SET 


COS 
Biwta.Pil > Shee aso ? BRA Bite tate a’? 15s! PAGE SS SEQ 0056 
000000 


;ERROR 171 “ATA” NOT SET DURING RETURN TO CENTERLINE 


;ERROR 172 “ATA” NOT SET BY OFFSET COMMAND 


x 
x 
x 
>= 
> 
x 
> 
x 
4 
Es 


EMT172 

tA: EDT 
< r EDTt 
< “4 
ya 
238 ;ERROR 173 RMER2 NOT INITIALIZED BY UNIBUS INIT 
536 EMT173 
o3E EHT1 
ot EDT1 
x EFT1 


a me 


ASAT 
mo int 





et hat hy 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


‘ 5 
aaa 
oO £rT 

2 


ee 


SELECTED DEVICE IS IN WRITE PROTECT 


Wasd aaa2 
a 


ae fee pan Pe 





; ERROR Ent 76 CANNOT SET DIAGNOSTIC MODE 
1 
EDT! 
EFT1 
10 
ie ; ERROR bw? INCORRECT “MOL” STATUS DURING DIAGNOSTIC MODE 
1 EHT1 
14 EDT! 
Sue EFT1 
1 
sil? ;ERROR 200 INCORRECT “PIP” STATUS DURING DIAGNOSTIC MODE 


RMO3 FUNCTIONAL PART 2 WMACYLI 30(1046) 29-JUL-77 15:01 PAGE SS 
i :07° PRROR POINTER TABLE ane OORe 


SELECTED DEVICE HAS A PERSISTENT “SKI” ERROR 


: 
esse Be 


“LBC” DID NOT SET DURING DIAGNOSTIC MODE 


Pll 29-JUL-77 14: 
Sees Oboe eM 
EDT 
pico 
003560 ae EFT 
SERROR 201 INCORRECT “WRL™ STATUS DURING DIAGNOSTIC MODE 
003562 066614 EMT201 
EHTI 
EDT 
i 
ERROR Fcc INCORRECT "SKI" STATUS DURING DIAGNOSTIC MODE 
1 
EFTI 
;ERROR 209. INCORRECT “DVC™ STATUS DURING DIAGNOSTIC MODE 
203 
1 EFTI 
. jERROR 204 “VW" WAS NOT RESET BY MAINTENANCE UNIT READY 
6 1 
i 
egies 
ves 


a 





UNEXPECTED LOSS OF “MOL” - MEDIUM IS OFF LINE 


; 
=e Se 





UNEXPECTED LOSS OF VOLUME VALID - “vv" = 0 


woe 
T~ 
be 
oO 


MACY11 30(1046) 29-JUL-77 15:01 PAGE S& SEQ 0058 


;ERROR 211 UNEXPECTED MECHANICAL MOTION - “PIP” = 1 


UNEXPECTED DEVICE FAULT - “DVC” = 1 


we 
rm 
— 
Tj 


333 


UNEXPECTED SEEK INCOMPLETE ERROR - “SKI” = 1 


pa ee 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


Ed 
_— 
£ 


214 


ty # 
Sa oe 


He 
rT 


S ie Sie 
i 
EEE Oe 


ia 


;ERROR 215 DRIVE DID NOT DETECT “IVC” ERROR DURING RECALIBRATE 


;ERROR 216 INCORRECT “IVC” STATUS 


;ERROR 217 INCORRECT “IAE™ STATUS 


Sa Gu ong 
oe ae 





;ERROR 220 INCORRECT “WLE” STATUS 


OZRNDA - RNOS aU pe Le PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE S7 SEQ 0059 
OZRMDA.P11 = 29-JUL-77 14:07’ ERROR POINTER TABLE 


; ERROR get INCORRECT “OPI” STATUS 
221 


; ERROR RMO3 DID NOT DETECT RMR ERROR 


+ HRD: 


areal 


; ERROR RMO3 DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 


ere 


2 fee a 
a 
cy I 


er 


oe 


UNUSED 


: 
a 





SERB a SRSLOME CER M2 








e+ be ee 


GOS 
WACYLI 30(40M6}_29-JUL-77 15:01 PAGE SB 
0 


o00o 


ad. 


ERROR 232 UNUSED 
0 
0 
0 

ERROR 233 UNUSED 
0 
0 
0 

ERROR 234 UNUSED 
0 
0 
0 

ERROR 235 UNUSED 
0 
0 
0 

; ERROR i. UNUSED 
0 
0 

ERROR 237 UNUSED 
0 
0 
0 

ERROR 240 UNUSED 


MACY11 30(1046) 29-JUL-77 15:01 PAGE S9 SEQ 0061 
ERROR POINTER TABLE 


oooo = 











;ERROR 246 “ATA” NOT RESET BY GO WHEN “ERR” 


;ERROR 247 “ATA” NOT RESET BY WRITING RMAS 


i se ie 
an & 
gees 
oe 


: ERROR 241 UNUSED 
eal Gis 
1 
1 0 
553 004170 0 
365) ERROR 242 UNUSED 
172 0 
<° 174 0 
55S 1 0 
ax: 0 
: ERROR 243 UNUSED 
Bae D 
0 
1 0 
ERROR 244 UNUSED 
7 12 0 
ig * 
74 0 
3 s ERROR 24s UNUSED 
: 
0 
0 
: 
2698 


" 
bee 


;ERROR 250 “ATA” WAS RESET BY GO WHEN “ERR” 


. 
a 
— 


Soe3 4868888 
SeoR 8 


8883 
BEES 


paRER FDEP FEEDS SS SSARAMISSSSSNRASSS EASRSSEEERERRSSSEEER CEE 
8 8388 
= Sees 


MACY11 30( 1046) 
ERROR POINTER T 


; ERROR 


; ERROR 


samy SEES 


qosan 
csp 


wwo 


ans 


asa 
a 


z 


29-JUL-77 15:01 PAGE 60 
ABLE 


PROGRAM INTERRUPT WAS NOT GENERATED 


PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 


OFFSET MODE WAS NOT RESET BY WRITING RMOC 


INCORRECT “ILF” STATUS 


INCORRECT “ATA” STATUS 


INCORRECT “ILR” STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


“IVC” WAS NOT DETECTED DURING SEARCH COMMAND 








SEQ 0062 


Pi Bau? asso? "? BRROA PEM ER trace m7? OL SEO 0063 


OO43S2 067300 EMT260 
OO43S4 070526 EHT1 
004356 070652 EDT! 
004360 070742 EFTI 

;ERROR 261 DRIVE EXECUTED SEARCH WITH ERROR SET 

004362 067312 EMT261 
EHT1 
a 
1 


; ERROR “LBC” ERROR NOT SET DURING DIAGNOSTIC MODE 


aR 


a ie 
oe 
pee 
aan 


sERROR 263 "SKI" ERROR DURING SEARCH COMMAND 
7342 EMT263 | 
e a 
10 070742 EFT 
-ERROR 264 "IVC" ERROR DURING SEARCH - LOST VOLUME VALID 
12 067352 F EMT264 
14 070526 EHT1 
Sars a 
EFT 
sERROR 265 ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 
067372 EMT26S 
070526 EMT! 


; ERROR DEVICE FAULT (DVC) DURING SEARCH 


i ue 
z 
Be 


;ERROR 267 SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 
ADDRESS IS TOO LARGE * 


au 
sf 











ath 
on 


MACY11 30( 1046) 
ERROR POINTER T 


; ERROR 


; ERROR 


KOS 
29-JUL-77 15:01 PAGE 62 
ABLE 


OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
DION’T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 
PIP STIL SET AFTER SEARCH 


ITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


Rh ERROR DURING DATA TRANSFER BECAUSE “MOL” WAS 


“OPI™ ERROR SURING TA TRANSFER BECAUSE 1) ON 
cYLI DIDN’T OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 


SEQ 0064 
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MACY11 Soe 29-JUL-77 15:01 PAGE 63 
ERROR POINTER TABLE 


; ERROR 


; ERROR 


; ERROR 


;ERROR 


“IVC" ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS “IVC” ERROR DURING DATA TRANSFER - VOLUME 
IS VALI 


“ILR” ERROR DURING DATA TRANSFER 


“ILF” ERROR DURING DATA TRANSFER 


“RMR” ERROR DURING DATA TRANSFER 


INCORRECT “IAE™ STATUS DURING DATA TRANSFER 


“SKI” ERROR DURING DATA TRANSFER 





v 


OZRMDA - RMO3 FUNCTIONAL TEST, PART 2 
DZRMDA.P11 29-JUL-77 14:07 


067734 


070742 


O70eee 
arora 





POINTER 


MACY11 30( 1046 
ERROR 


; ERROR 


; ERROR 


307 
307 


) 
TABLE 


OS 
29-JUL-77 15:01 PAGE 64 SEQ 0066 


DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 
DEVICE FAULT DURING DATA TRANSFER 

LOSS OF BIT CLOCK DURING DATA TRANSFER 

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 
UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 
DRIVE TIMING ERROR DURING DATA TRANSFER 

WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 





— FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 65 SEQ 0067 


Pl 29-JUL-77 14:07 ERROR POINTER TABLE 


;ERROR 317 HEADER CRC ERROR DURING DATA TRANSFER 
OO4742 070070 care 


BRIG tees Fr 
;ERROR 320 FORMAT ERROR DURING DATA TRANSFER 
re 070100 EMT320 


r8 Wie BH 
Tl 
EFT 
0 ;ERROR 321 HEADER COMPARE ERROR DURING DATA TRANSFER 
ie vas 
004770 070742 
;ERROR HEADER ERRORS SHOULD NOT BE SET 
77e 322 
re EDT 
005000 


; ERROR 3c3 DATA CHECK ERROR DURING DATA TRANSFER 
323 





;ERROR 324 CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


;ERROR 325 UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


;ERROR 326 DATA PAPITY ERROR DURING READ COMMMAND 
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MACY11 30( 1046) 
ERROR POINTER T 


29-JUL-77 15:01 PAGE 66 
ABLE 


; ERROR $e 07 OFFSET MODE NOT RESET BY WRITE COMMAND 
EHT1 


; ERROR 


; ERROR 


EDT! 
EFT 


i300 
EHT 


1 
EDT 
EFT 


qssR FES esse Feesk Pease 
ete Bones Bowes ng 


toc a 


age 
Stee 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 


DATA LATE ERROR DURING DATA TRANSFER 


PIP STIL SET AFTER DATA TRANSFER - SKI = 0 


LOST MOL DURING DATA TRANSFER - OPI = 0 


LOST VOLUME VALID DURING DATA TRANSFER - IVC 


DATA READ DOES NOT COMPARE WITH DATA WRITTEN 


weeny 13 


BVVVRRVYVOM ss omincnes SSIRREBRSS 


He aa ae ee ee a A AAT AT ATA ALATA AT ALA AAT ATATATA ATA) 
ee a ee CaDEaDEaDEad End Cad Kad EaDEaDCad Cad End Cad CadCaDEnd CadEnd CaPCadEadCad 


FRESH-SSBVKRKLOR= 


Ge bem $8 De fw nt Rm hm 


WWW) 


pipe BSL dtr? PRT? BRROA eSINtER trace m7 Ia Pee SEO 0063 


;ERROR 337 WRITE CHECK ERROR NOT DETECTED 





=p pe 


WRITE CHECK ERROR AT UNEXPECTED ADDRESS 





eh he 


INCORRECT DATA DURING WRITE CHECK ERROR 
1 


SFR «=—RLKC BEEK 


"IVC" ERROR NOT DETECTED DURING DATA TRANSFER 


=F OF 


“FER” NOT DETECTED DURING DATA TRANSFER 


ae 
iw 
w 


aos, 
rn 


me 
ey) ° Bat 2n 


aa 
. 
i 
poe 


;ERROR 344 “HCE” NOT DETECTED DURING DATA TRANSFER 
lean 
14 EHT. 
16 EDTS44 
071016 EFTS44 
; ERROR “BSE” NOT DETECTED DURING DATA TRANSFER 
070420 ENT 345 
poses, | O7OESS EDT 
005230 Bross EFT1 
sERROR 346 HEADER ERROR WAS DETECTED W/ HCI SET 
O00S232 070430 EMT346 
EHT1 
Be ; 
E=Tl 


Dae Gt bs fee Pt bao bee bee Pee 
S55 


IN SSECEA 


Sa ae eee AT ALATA AL ATATATATACATATATATATATALATATALATATATATALA A) 


OB Ob Bb 0 bh bb bb bb 0 0 he 


—BSEIKRLSH-SSBIRRIBHHB Iara? 





RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 68 SEQ 0070 
1 29-JUL-77 14:07 ERROR POINTER TABLE 
;ERROR 347 > DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 
pee 
at 
1 
; ERROR Entso LOST VOLUME VALID DURING SEARCH - “IVC” = 0 
1 
EFT1 
;ERROR 351 “ATA” DID NOT SET DURING SEARCH 
= an 
1 
EDT1 
005270 070742 EFTI 
;ERROR 352 PROGRAM TIMEOUT WHILE TESTING RMLA 
005272 070504 EMT3S2 
000000 0 
tere Sos 
000000 0 
; LOOK AHEAD TEST FAILS 
r AOR Fy 
EHT353 
EDT3S3 
10 071026 EFT3S3 
;ERROR 354 BSE SHOULD NOT BE SET 
esa aroeSe EN 
005316 SoDeES EDTI 
005320 070742 EFTI 


‘EBTTL ERROR TABLE USAGE 


THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 


;NUMBER, I.E., 

5 

; EMT - SSAGE T ADDRESS 
; EHT - HEADER T ADDRESS 
; EDT - pare TABLE SS 

; EFT - ORMAT TABLE ADORESS 
’ 


;THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
;FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADORESS 


Rigen 19 


"3 
Hs 
: 
s 


vi 
— 


Y -77 : 
ERROR T f Oe) er un. 15:01 PAGE 69 SE@ 0071 
COE Or a RRR SE STS a ORY te oo, en 


ATES EA ar Bn” MOF OE SS, He 


1S, aoe Bia e Fonte STON Fr RAL CIveh Os ‘2 reat ite OF 
as ratte a's a 


EACH NONZERO ENTRY IS THE ADDRESS OF A 
EACH TABLE IS A LIST OF ADDRESSES WHICH EF INES THE LOCATIONS 
; OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 
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wi 








1 


o 
ae 
1 

177777 
o0Ss46 
000176 
BO000H 
001230 
000200 


8 
¥ 





FO6 
ACYL 3OC10WG). 29-JUL-77 15:01 PAGE 70 


-SBTTL START OF PROGRAM 


START: 
; CLEAR SETUP FOR TEST EXECUTION 
sINITIALIZE THE SYSTEM 
MOV PR6, -(SP) ::PUT NEW PS ON STACK 
MOV #64$, -(SP) *:PUT NEW PC ON STACK 
RTI >:POP NEW PC AND PS 


64S: 


;FELERR The COMPOR THES CSCHTAG) AREA 
SSCHTAG, R& ;;FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 


tn She 
a 






wf ;;LOOP BACK IF NO 
HOY >:SETUP THE STACK POINTER 
; INITIALIZE A FEW VEcT 
MOV ealorvec ;;I0T VECTOR FOR SCOPE ROUTINE 
Rov 2 c’;; CTOR FOR ERROR ROUTINE 
HOV Svec’? VECTOR FOR TRAP CALLS 
Sov C+e; LEVEL 7 
HOV 33 FAILURE VECTOR 
MOV : HH END-OF -PROGRAMN COUNTER 
CLR ss OF T 
She + per 
MOV 33 LOOP ADORESS FOR SCOPE 
;;SIZE FOR A t F ot is 
;;EQUAL TO A CH ms . 
VEC 


° TOR 

+ F SWICH REGISTER 
+: ISPLAY REGIS 

ae hee Pease 

4 HED 1S NOT 

665 tS ERANCH TF NOTH oT 

8665, (SP) StSET UP FOR TRAP RE 
RSUREG,SIR ___sgPOINT TO SOFTHARE SUR 

OL SCALE nestor ERROR VECTOR 

; ;CLEAR PASS COUNT 


SR TSIZE, SENVM si Tee! useek SIZE UNDER fr 
8SSWREG, SWR ::NO,USE APT SWITCH REGISTER 


EB 
SREP BSELSS HGSSEs 





001243 
001300 


MACY11 30(1046) 29-JUL-77 15:01 PAGE 71 
TYPE PROGRAM NAME 
.SBTTL TYPE PROGRAM NAME 
:;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
&- ;;FIRST TIME? 
6 33 F NO 
,eee 3sACT-11? 
me 86S OTe CZ STRING 
.SBTTL GET vawut FoR SOFTWARE SUITCH 
TST gre 33 We | NG UNDER XXDP/ACT? 
ae ieee 
Pan tion s;ARE WE NG UNDER APT? 
cre , SSWREG He Sul CH REG SELECTED? 
GTSHR ane +:GET SOFT-SWR SETTINGS 
71$: MOVB  81,SAUTOB ;;SET AUTO-MODE INDICATOR 


BR 69S ;;GET OVER THE ASCIZ 
5370S: .ASCIZ <CRLF>@DZRMDA - RAGS SUBSYSTEM FUNCTIONAL TEST, PART 2a<CRLF> 


;FIND OUT , PROGRAM IS RUNNING IN STANDALONE MODE © 
TS 4 ;1S LOC Ye 7? 


1 ;NO - NOT IN STANDALONE 
TSTB = SENV ;1S APT ENVIRONMENT ZERO ?? 
BEQ STANDALONE ;YES - PROGRAM IN STANDALONE 


10S: 


;PROGRAM NOT RUNNING IN STANDALONE - SEE IF sic TS ALLOWED 
BITB #B81T7, SENVM Racine ALLOWED ? 


BNE 
MOV , SDEVM ;YES - SET DEVICE MAP FOR ALL DEVICES 


;GO TO COMMON START CODE 
JMP CMNSTART 


SEQ 0073 


i a a a a il 0 om 


3316 006014 STANDALONE : 
tf 006014 004737 O6&06S2 JSR PC, STKINT ; INITIALIZE CONSOLE 
; F THE FIRST START WAS LOADED 
1 eg ai SEE IF JY{S 1S THE FIRST START PETER PROGROM, 
100024 BPL 10$ ;YES !! 


















SEE IF THE USER WANT 10 KEEP SHE ORY ICES FOr TELS 
104401 063204 és TYPE, MAINTAIN PREVIOUS PARAMETERS?? 
ke O44 ROCHR : 
3c 001176 MOV (SP)+, STMP1 : 
ee 001176 TYPE i 
336 001176 000131 CPB Os STMP1, 8’ ;YES RESPONSE? ? 
13 137 006764 ~ : PREVIOUS PARAMETERS 
13.3; 001176 OO00116 6S: CMPB 4s STMP1, #’N NO RESPONSE ?? 
kK 1420 BEQ 20S “GET NEW PARAMETERS 
3 1 063053 TYPE QSTMRK "NOT YES OR NO, TYPE "2" 
33 - BR és *RETRY 


AtATAtAt 
AtAtAt 














OPERATOR WANTS HELP FILE 
102 tod a ROCHR —— GET RESPONSE 
a Goes Oje47 001176 MOV (SP)+, STP 1 = AND ECHO RESPONSE 
3 q ioaree BOLLE 000131 CMP E afte ay WAS IT A RESPONSE ?? 
au neste nate BNE 20s |’ bontt Fee heer 
124 104401 102574 TYPE HELP he TYPE MELP TEXT 
006130 20S: 
;SEE IF USER WANTS TO CHANGE RMO3 UNIBUS ADDRESS 
En 104401 063111 TYPE , UBUS@ST sMANT 0 CHANGE ADDRESS 7? 
335} nek, 001176 MCV (SP)+. STMP1 give ECHO RESPONSE 
Se 104401 001176 TYPE TMP 
35 001176 000131 CMPB «Os STMP1, 8’ ;WAS IT A YES RESPONSE ?? 
35 nates BNE 90s NO #8 
Sep 30S: 
335; ;DIALOGUE TO CHANGE THE UNIBUS ADDRESS, AND INTERRUPT VECTOR 
3356 jouos 063243 TYPE CNSLOL “TYPE CURRENT BUS ADDRESS 
3355 13746 001276 MoV © $BASE, -(SP) ie he FOR TYPEQUT 
1360 104402 TYPOC He =-OCTAL ASCII(ALL DIGITS) 
3 104401 063044 TYPE, CLSPRN 
o44 RDOCT 
Iee3? 001176 HOV (SP)+, STMPL es Gia 
160000 001176 C 3120000, STHP: ue ea one PAGE?? 
3368 101403 BLOS 40S 
ee 063270 TYPE CNSLO2 i Tee WARNING MESSAGE 
C 1 001176 001276 40s MOV STMP1, SBASE + STORE NEW BUS ADDRESS 
$370 113732 001272 001176 MOVE SVECTI.STMP1 © ; TYPE CURRENT VECTOR ADDRESS 
1 1 001177 CLRB 4s STMP i+] 








£ 


soparercenseseseecrsocreanamreerass 9 


Ree aaa 


. 
Net 


be 





geese 


3 


11 
: 113737 
is gees pear 
si pees iat 


e 
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000007 


001273 


000101 


100$: 


29-JUL-77 15:01 PAGE 73 
T VALUE FOR SOFTWARE SWITCH REGISTER 


sFRPL oo csP) 


3 


335 SP STMP1 FOR add 


Hie 3 pies) 


TYPE 
Pos 
‘BYTE O 
TYPE. ,CLSPRN 
RDOCT er NeW VECTOR ADDRESS 
HOV (SP)+, STMP1 ce BOE RETURN? 

$1000, STHPL wee ROORESE< f0un?? 
Fyre * MARNING MESSAGE 

TMP1,SVECT1  ; c ss 
Nove Svect +1, S171 fae clRRENT PRIOR 
ASR TMP 1 
ASR STMP1 
ASR TMP 1 
ASR TMP 1 
ASR STMP1 
CLR STMP1+1 

CNSL 
MOV STMPI,-(SP) ;;SAVE STMP1 FOR TYPEOUT 
TYPOS 3500 TPE -—OCTAL ASCII 
BYTE j + PRESS CeAS NG ZEROS 
TYPE. ,CLSPRN 
RDOCT iGET_ NEW PRIORITY 
MOV (SP)+, STMP1 : RIA E RETURN’? ay 
Be STHP1, 47 il Ear 1ORITy 
OOP a 06 SPE WARNING MESSAGE 
86 oe RETRY 

STORE NEW PRIORITY 

as TMP} 

TMP 1 
ASL TMP 1 
ASL STMP1 
ASL STMP1 
MOVE  STMP1, SVECT1+1 

sDIALOGUE TO INPUT DEVICE NUMBERS 

CLR SDEVM CLEAR DEVICE MAP 
TYPE _,CNSLO7 TYPE INPUT INSTRUCTIONS 
TYPE PROMPT i TYPE PROMPTING CHARACTER 
Roy (SP) STMP1 i Blo RESPORSE 
CMP sip. #’A ;TEST ALL DRIVES?? 
BNE 10$ *NO 
MOV #377, SDEVM “TEST ALL DEVICE 
BR 140$ *SKIP TO NEXT ENTRY 
TYPE PROMPT : TING CHARACTER 
ROCHR : 


SEQ 0075 





JO6 


DZRMDA - RMO3 TIONAL TEST, PART 2 Y11 30(104%6) -77_ 15: 74 0076 
DZRMDA.P11 Age 14:07" Oey baie OR bor Finke SWITCH iedisteR” = 
012637 001176 MOV (SP)+, STMP1 ECHO RESPONSE 
001176 TYPE STMPi 
z 001176 000015 cP $TMP1, #CR ;CARRIAGE RETURN?? 
001176 000060 110S: cH STMP1,#’0 j NUMBER « 077 
aH 001176 000067 CMP 1,8°7 *NUMBER > 77? 
BLE sNO!! 
063053 120$: TYPE TMRK : age 
eo ee ie Sie, 
001176 130$: MOV 1,R1 *RI=DRIVE 
042701 177770 BIC 8tC7,R! 
116106 MOVB BTNTBL (RL) Re ;DECODE DEVICE NUMBER 
001300 Bis ROC SOEN SOAR ICE ® GH RAP 
aus ee apa? 001300 CMPB 8377, SDEVM : 99° 
3444 101334 BHI 100$ :NO 
344S 
3446 





140$: 





KO6 


OZRMDA - RMO3 te Uige TEST, PART 2 MACY11 30(1046) 29-JUL-77_ 15:01 PAGE 75 SEQ 0077 
OZRMOA.P11 © 29-JUL-77 14:07" GET VALUE FOR SOFTWARE SWITCH REGISTER 
006632 CMNSTART : 


x 
: 
; 
z 
fa 





la DEVICES me 





901309 SDevi RO sRO = MAP 
Bie iivae™ tae bed Bina ™ = 
5 , 

= ye Hg: BV a 
10S: Re RO iS THIS DEVICE IN MAP 7? 
R3, (R1) *YES - ICE NUMBER IN QUE 
03776 000001 BTATBL CRS), 1(RL) ;ENTER B SAS aa Motor IT N QUE 
20S: Re’ 
vee 
# 
§ 


3 
2RSge 


SIZCLK ioe IF CLOCK PRESENT 
Some IS PRESENT 


rp SR SEGRESIESOT EEE 
ote 


GSRSHORRSEROB IS GA TIN SCONES CIE UEDOESSS 8 
screen (ore emereerers 


A 
Spoon 
004737 
40S: 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
Oe ooo042 TST F] ave ;;ARE WE RUNNING UNDER XXDP/ACT? 
001242 o00001 C ScRV, 1 aye aM NG UNDER APT? 
1406 BEQ 64S *:BRANCH IF YES 
001154 000176 CMP SWR, #SWREG * SOFTWARE SWITCH REG SELECTED? 
1005 BNE 65S ::BRANCH IF_NO 
GTSUR al ?:GET SOFT-SWR SETTINGS 
112737 000001 001150 bus: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
000240 READY: NOP Y TO START TEST 
737 52 JSR PC STKINT INI IALIZE TTY 
13746 MOV PRE, -(SP) *:PUT NEW PS ON STACK 
12746 007004 MOV wes, -(SP) *:PUT NEW PC ON STACK 
a RTI >:POP NEW PC AND PS 
117737 172436 001234 " — MOVB)=—s« @TSTQUE,SUNIT ;LOAD UNIT NUMBER 
005037 001472 CLR MEDENB “CLEAR MEDIA ENABLE 


o 
Ps i ee 
0 CIC" U1 -F GIT 





RMO3 
1 


wi 


1 


1 
1 
1 
1 
1 
1 
1 
1 


534% 
007114 
69489 
wis 
wie 
: 


pat gee fe 





FUNCTIONAL TEST, PART 2 


29-JUL-77 14:07 


eects SS 


f= Ps Pb Bm b= pee ke as 


ne 
=) a 


BE 
8 


ns Se 





a 


001226 


teen 30( 1046) ee rhe Oo PAGE 76 


JHIHIHHIHHHHHEHHEHHHHHHEHHHEEHEEE 
CONTROLLER ACCESS TEST 
JHB HHHHIHHE EEE 


ae START OF TEST 
11a’ SLPERR v4: 

SSTACK, SP INITIALIZE STACK POINTER 

TSTOUE, Ri ROT obevice BEING TESTED 

81,5 TN Set rest ACRER IN APT FIL BOX 
ERRVEC -(SP) ;;PUSH ERRVEC ON STACK 

ERRVECTE, ~(SP) ;;PUSH ERRVEC+2 ON STACK 
8PR6, ERRVEC+2 


EROVE WORD COUNT REGISTER 
) ;MOVE BUS ADDRESS REGISTER 
;MOVE CONTROL STATUS REGISTER 


os 

—— 
os 

ats 

8 

SD 

= 

3 

See 


angn 
a 
2S 


Ri fea (hb) Pn on 

(SP)+ +2 -:POP STACK INTO ERRVEC+2 
(8p) € ;;POP STACK INTO ERRVEC 

7§ MO BUS TIMEOUT OCCURRED 

(SP)+, (SP)+ ADJUST STACK 

(SP)+, ERRVEC+2 -:POP STACK INTO ERRVEC+2 
(SP)+,ERRVEC  ;:POP STACK IN 0 ERRVEC 

110 CANNOT ACCE 

He ;STAND ALONE MODE? ? 

START :YES-GO GET SBASE 

SEOP GO TO END OF PASS HANDLER 


Se Me Se SE Se Hb Sb 6 HE 6 36 96 6 6 0b aa a EEE 


DEVICE AVAILABLE TEST 


© 5 SE M6 M6 SE Se He SE Se Se a6 SE HE JE Sb SE 0 0 06 06 0b 0 a a a EE 


33% 
oe 
tST1: Nop 
MOV 
MOV 
1S: nov 
MOV 
MOV 
nh 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BR 
3$: 4 
MOV 
ERROR 
TST 
BNE 
JMP 
SS: JMP 
7$: 
tETEST 2 
téT2 ea 
NOP 
MOV 
MOV 
MOV 
MOV 
JSR 
BR 
NOP 


ieee Sst 
SSTACK, SP * INITIALIZE STACK POINTER 
SBASE * RO=UNIBUS SS 
TSTQUE, RI *(R1) = DEVICE BEING TESTED 
#2, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
PC, CNTCLR 


2§ ;GO TO 2S IF NO ERROR 
SRETURN HERE IF ERROR 


SEQ 0078 





DZRMOA - RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 77 SE@ 0079 
OZRMDA.P11  29-JUL-77 14:07" Te DEVICE AVAILABLE TEST 


TB" 7s co To 78 iF Erion his Fo 





2s: 
MOV -(SP) — ; ;PUSH T 
HOV Erevgete, (SP) ; ERRVASH PRRVEES2 ON STACK 
MOV = PRB, ERRVEC+2 
MOV (RO) DVA STATUS 
MOV meas Ste T NED STATUS 
mm So al 
BIT shed, STHPO :NONEXISTENT TENT DEVI fern 
ERROR iit t NONEXISTENT DEVICE 
BIT 8DVA, STMP1 sDEVICE AVAILABLE?? 
BNE 9$ sYES!! 
ERROR ile DEVICE NOT AVAILABLE 
o — s 
Gov (aoe cRRveces aeeglktl TACK INTO ERRVEC+2 
MOV. (8p)4' ERRVEC ;;POP STARK COTNTO ERRUE 
BRROR 113. :BUS TIMEOUT (04 irae 


© $0 M6 ME He Se He HE HE He HE He HE HE HE HE HE HE HE HE HE HE 0 HE He EE HHH EEE 


SE Re ng RATER MORAN DRESS ooo eR CR nEn Re Bomenne 


t ETEST 3 DRIVE TYPE TEST 
liane cia Ai sassy NS 8 bey Ne 
B00 000004 SC ;SCOPE CALL 
iat Oie70e ll i TACK Sten si ESTA POINTER 
fo Siar} SIc% a ne 
Boried 1279) Sodccs on1226 MOV raTpeat ;;SE + TERT HUNGER IN APT FAIL BOX 
737 046154 ISR PC, CNTCLR 
BR 2s’ GO TO 25 IF NO F NO ERROR, 
ERROR i BRROR NUMER DEFINED BY 
137 007536 * IMP 4§ 5G0 TO 4$ IF ERROR WAS FOUND 
i 901 nove eRNOT aGETIN INK ;SETUP GET INDEX TABLE 
001354 MOV 85S RMOTI sRMDT INPUT = SS 
le JSR PC, GET *GO GET DRIVE 
BR 3s’ G0 TO 3$ IF NO ERROR 
RROR : CIFIED BY GET 
020024 001354 3S: CMP SSNGPRT , RMOTI ; SINGLE PORT RMO3?? 
141s Q c§ :YES!! 








DZRMDA - RNOS FUNCTIONAL TEST, 
DOZRMOA.P11 29-JUL-77 14:07 





012737 


a2 Raa 
BS 


BS 
8 


etetet =.=) 
= b= op pe 


a 





={= 
Tonten 


DOO 
ant an - 


001376 


MACY11 30( 1046) 
T3 


NO6 
29-JUL-77 15:01 PAGE 78 


DRIVE TYPE TEST 


aes RMDTI ;DUAL PORT RMO37? 
;YES!! 


i ;NOT_AN RMO3 


:G0 TO SUBPASS HANDLER. 
6 FE HE SE SEA SHE HE HE HE HH SE SE HS HH HH EE 


FORMAT ZEROS - 18 
JHMM HHH HE 


i 
SSTACK,S SP NITIA I STACK. POINTER 


aga (By sc hele FB. ox 


;SETUP PARAMETERS F' TING DATA BUFFER 
ao, oe ;CYLINOER_= 


roy i Trae sector . 
= 
F 

MOV a ies “235 WORDS 

NOV Se RESO ie ee 

MOV 8ZEROS tHPO Gee bal’ DAT: PATTERN 

MOV #1, STMP1 
oa ISR PC, GENBUF om GENERATE DATA BUFFER 
PREPARE DEVICE TA TRANSFER 

1k ber 1eTPRP “PREPARE DEVICE FOR TEST 

. WORD St130 ; TASK DESCRIPTOR 

BR 50s 305 JF NO ERROR 

NOP ETE 

ERROR THE ERROR BY TSTPRP SUBROUTINE 
# IMP 180 00 10-1808 IF ERROR Has FOUND 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET. DRIVE ON CYLINDER 

HOY ie age one icRITE RITE REGISTE GISTE TREX TABLE 

MOVB SAMOA (Re) + 

MOVE § SRMDC, (Re)+ 

MOVB _ SRMOF. (Ro) + 

MOVE —sRMCSI, (Re)+ 

MOVB 8200, (Re)+ 

JSR PC. PUT oho cree REGISTERS VIA PUT SUB 

BR 40$ :G0 TO ea F NO 

NOP 

ERROR RETR VEN IF ay Pur PUT SUB 

IMP 180$ ;GO TO isis IF IF ERROR WAS FOUND 


40S: 


poms «en ETON. TG, PRT 2 REL LOM ETAT Teck PE 7 aoe 


oni737 036726 ;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
By Ge Gis fn 


HiAIT FoR SEEK 10 COMPLETE 


0 0S STN GO READ REGI VIA GET SUB 
60% 560 TO 60S IF NO 


737 037012 IR 
AG IF ERROR 
o 
& 137 010342 same te. 180$ ;G0 TO 1i5e TF hee FOUND 
an 007775 OIN7a7 OHNTI4 rape Je rebeSeKSTS sae sday’ RESULTS OF SEEK OPERATION 
By fits Sue Ne Sr ee eters amu 
BYRD BES coe =, TT ot a ces raro 
10016 O1 001376 a, ee: oa sf 000 WR R AND TA 
iBoes biog Sorese HOV. BPUTINK+3 i TEND Recr ABLE 
il ooo0ce MOVB eRe, (Re}+ 
iposa 118788 dopoed Nove  semicel (Rese 
389 01 000200 MOVE 8200, (R2)+ 
31 ites 037262 ISR an PUT i e oi PRUTE STERS VIA PUT SUB 
Be tite, ote Me eS STReTU Vere TF ERROR 
Fal Oi oes boor3? 010342 te, IMP 180$ ;G0 TO ieee OEROR hee. FOUND 
3% ; 
3697 WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
Sas Bites fearay davis fe PROT co penn necisiens VIA eT a 
3700 10076 OOO404 BR 304 GO TO 90S IF NO 
1010¢ 1Os609 ‘ ERROR i BEAOR DEFINED BY Got BY GET SUB 
010108 137 010342 i, IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 
Fee eg me eT Be 
To G1oies feuoce RROR Pu te TERR SUBROUTINE 
11 0101 00473 JSR PC, a(SP)+ GO BACK FOR 
ip O10 137 010342 al JNP 180$ ;60 10 18 180$ IF ERROR WAS FOUND 
aie Gere == ATT 00 VO 
3716 010136 000240 NOP RETURN HERE IF ERROR 


CO? 


SUTTON Egy: PART 2 ERCYL SOP zehés 1g tO! PAGE oO 
ie 

TP 
* JSR 
NOP 

isn 
TP 
roy 
HOV 
BR 
NOP 

yar 

WAIT FOR_ READ 
TSR 
NOP 

yao 


INE 
WAS FOUND 

INE 
WAS FOUND 


CHECKS 


Te OY SUBROUTINE 


;G0 TO 1680S IF ERROR WAS FOUND 


OF DATA TRANSFER 
;G0 CHECK FOR SECONDARY ERRORS 


IF NO ERROR 


ee 
a 
i 


IT FOR READ TO COMPLETE 


REGISTERS VIA GET SUB 


BY DTASTS 
pa CHECK FOR ECS Stance 
: Sige: 
ous 
F ERROR 
Peon wes FOUND 


OPERATION 


Be MonBe. ngt Ease. gos 
bts Eabbts — is = : es on i 
Was 3 


ETE AND GET STATUS 
GO 
G0 TO 180$ 


hs 3 

~g s Ot 28 erie. 4 

Li Se ee, eS GE GE i 

Cn Soe fn ae ~« ix] 

oa ot ge . o & cue a i a 
w 


; VERIFY DATA 


10$ 
20s: 
;READ 
30S 
50s 
60S: 
170$ 


1 
1 
i 
1 
; 
1 
J 
1 
1 


HE BER 
Beste Sie 


ourw 





Wd ed ee ed ed eg ey cori od 


RNO3 
ll 


QOO00000000 
ceed) eh Oa eho a oe a i oe Om ed ed ed ey a i oe eh me we ey eh gt ed ed ed od Ht HO 
OAOO0O000000 oeo000000 ooo0000o0 SGOOOOOOOOOOO0OO000000 


BRR SSRS SS SSSASBRBES SSSR REBRERSERERSDAERRDRSERBBSBSBBEONN 


a 


v4 
a: 


2 
a 
= 


jalolala = =]-) 
Bee bam fet free Qe has Ps pane Bn ee 


Re a Seed Lc eee P SSE SPER PEESErTETESERSEE EE 


th Ge he Bee Ph he pe 


petal ateatet—4 
AtAtAtA 
Sisonaness | Seaapeee 


Pea SSRERES 


DRA P— hae fae foun ft fens fas fies fae f= b= pe 





BBE 
#3” 


FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 81 
29-JUL-77 14:07 T4 FORMAT ZEROS - 18 
004737 036360 JSR PC, CMPBUF Stating Somes READ DATA BUFFERS 
ieee yoo Bene cig ial ae eee 
rents ew, NeROR et hep BY CHPBUF SUBROUTINE 
tkTEST 5 FORMAT ZEROS - 16 
tSTs: 
Bones nore ieee 
12706 001100 MOV aSTACK STi ian POINTER 
ee Be mre ce. 
12) BBE oon YB "Ba. sox 
;SETUP PARAMETERS F TING DATA BUFFER 
12737 000000 001432 MOV to prose sCYLINOER_ = 
1 001404 MOV = SECTOR = 
1 gos MOV B, 0 re Paris 
1 i i MOV 8< #024256. >+1> , RMWCO 
15737 DooDe2 bOLIzE WY OMARION i 
Nie i abe MOV 8ZEROS ie th DAT: PATTERN 
1 1 001176 MOV $1, STH 
004737 036114 ‘i JSR PC, GENBUF ;GO GENERATE DATA BUFFER 
PREPARE DEVICE FOR DATA TRANSFER 
004737 033274 “toro PC, TSTPRP -PREPARE DEVICE FOR TEST = 
1 WORD 454130 TASK DESCRIPTOR 
:GO TO 30S IF NO ERROR 
cr ;RETURN HERE IF 
404000 ERROR “ERROR # DEFINED BY TSTPRP SUBROUTINE 
137 011142 ‘i IMP 180 ;GO TO 180$ IF ERROR WAS FOUND 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
012732 MOV aSEEK GO RMCS10 | CHANGE COMMAND TO SEEK 
1 MOV INX, Re "WRITE REGISTER INDEX TABLE 
it MOVB ern, (Re) + 
1 MOVB » (Re)+ 
il MOVB  SRMOF, (Re) + 
it Nove soo st ihe) 
JSR PC, PUT GO WRITE REGI REGISTERS VIA PUT SUB 
BR 4o$ G0 TO “bs IFN 
on ita 
1ose09 I BY PUT SUB 
137 011142 i IMP 180$  ;GO TO iP IF ERROR WAS F 








SRI ' API 


LESTE f 


fas teas Pao bas Pee bet feat et be ee 


RNO3 
i 


per Re be Be fee 


Ererond Saahee 


=] sb pe pee 
ae 
o 


aaa 


RiGee Gi Bae oF 


Sasser 
-_ 
Oo 


S 


bee oes 
£O0 


+ 

? 
Bi 
T 


ea esata 
re 
0S60 


re 


037012 
011142 


044714 


011142 


011142 


037622 
037012 
011142 


040006 


O1ii4e 
0S2312 


001376 


E07 
2 WACYLI 30,1046) p9-3UL=77 15:01 PAGE 82 
SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO_COMPLETE 


Be Pinout tAAIY FoR SEEK 10 COMPLETE 


;G0 READ SEEK STATUS 


3 PC GET 00 70 sf READ TERS VIA GET SUB 
NOP a IF ERROR be 
af FE sens co 10 18S TE Prete tne roar 
VERIFY THE RESULTS OF cToe SEEK COMMOURIFY RESULTS OF SEEK OPERATION 
> 7 or on 
Fe” pc,acsPy+ ee TORE ERROR CHECKS 
ies IMP 180$ ;GO TO 180$ IF ERROR WAS FOUND 
;SETUP AND EXECUTE WRI AND DATA COMMAND 
MOV WH! GO 10 ;LOAD WRITE HEADER AND DATA 
HOV ePUTINK#3 Re “EXTEND REGISTER INDEX TABLE 
MOVE § @RMBA. (RO)+ 
MOVE  SRMCSI, (R2)+ 
MOVB 8200, (R2)+ 
JSR pe pur a aif ine GISTERS VIA PUT SUB 
NOP 
FE sans co 10 1G Beer ee reto 
;WAIT FOR WRITE TO COMPLETE AND STATUS 
JSR , TIMOUT WAIT FOR COMMAND TO COMPLETE 
JSR pC GET aude ISTERS VIA GET SUB 
ERROR : DEFINED BY cet SUB 
se IMP 180$ ;GO TO 10S IF ERROR WAS FOUND 


; VERIFY RESULTS OF WRITE COMMAND 
Pe ey" 


19 1 F NO ERROR 
; RETURN F 
ERROR “ERROR ® DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
oe IMP 180$ ;GO TO 160$ IF ERROR WAS FOUND 
ISR PC, OTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 110s -GO TO 110S IF NO ERROR 
NOP ;RETURN HERE IF ERROR 


$ 
a 


Seamsaeiee 
sens a 


DO of r: vf. r. vo. 


B84 


Reeceess 
So Gea Goa fees 
Rak 


pate tet fate 
fwre 


ur. bn b= OB be Bm he 


v 
+ 
Wd u 
oooo000o0 


ee a 


5 
§ 





Bs be Bt = bo bm pas ee few pep ms fan hee be = bo oe pee 
a Bb ht BR Fe bs = be 


Pr chSe Ped INS TORRES 





FO? 
MACYI1 30(10%G)__29-JUL-77 15:01 PAGE 63 008s 
TS FORMAT ZEROS - 16 i 


ERROR aan yoy AY DEFINED BY DTASTS SUBROUTINE 
com. IMP had eon 10 180s ' if WAS FOUND 
a PC, SECERR ;GO CHECK FOR SECONDARY 
Ra 
ie ft 60°10 1 WAS FOUND 
120$: 
; READ HEADER ANO para me SECTOR JUST wars vi 
: at 
eT a1, babi 
vg, HE” 1008 00 10 88"RF Bb rho 
a co em! ;WAIT FOR READ T 
JSR PC: GET GISTERS VIA cer + all 
BR 140$ = ;G0 TO 1403 
tie er 1 G0 TO ise oF Be oP a 
Pwr been ER eee CHECK FOR PRIMARY ERRORS 
BR -GO To1 F NO ERROR 
PRROR {Bde ett BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ :GO BACK FOR 
toa, IMP 180$ ;G0 TO 1608 I WAS FOUND 
" ‘JSR PC, DTASTS ;G0 VERIFY OF DATA TRANSFER 
BR 160$ iene ie" F NO ERROR 
ERROR ia aeoen Eine aD INED BY DTASTS SUBROUTINE 
ina JMP 180$ 60° T0 1808 RD ERROR EAS FOUND 
e Tee Pay Thali 
ERROR ERROR ony Dette BY SECERR INE 
ISR PC, a(SP)+ RORE ERROR Crecke % 
eet JMP 180$ ;G0 TO 180$ IF ERROR WAS FOUND 


; VERIFY DATA 





GO? 


: : Bae 

: a ae f e wf 

= of: fe: - Et 
ee Gi FR ses pel Be os 3 
ee eee 
ceed ii ted Batlsg oO me Guat 
ie ec ee 
2 = . se 8 & ee Ge Ba. 
28 See | oe 
a ; ' boxe on . Eee 3 8 
: wee 
a = oat tnt 


Donat 
JSR 
“HORD 
BR 
ERROR 
SCOPE 
NOP 
MOV 
HOV 
MOV 
JSR 
WORD 
BR 
NOP 
ERROR 
JMP 


form 


she 
PC, GENBUF 
;PREPARE DEVICE por DATA TRANSFER 
180$ 


ghng Us 
— 
_ 
8 


PART 2 = MACYI 
TS 
1 
; 
té 
001226 
432 
a 
174 
176 
20s 
] 
30S: 
a7 ; SETUP 
40$ 


case 
7s 


aod Haass 
RRS GREE EE 





ae FUNCTIONAL TEST 
29-JUL-77 14:07 
004737 
Thee 
ea 
1 


SoooooSD: a ceed ey ed ed 

—e OO we Hey 
BRAARSS SSFPHRYGR RKRKSV at 

_ 
tt a Ht te a Ht ttt -_ TPA 

at et od tt ht et td wt we et eg hd Gt ee et a eg I ad Oe ed ed ed at Gd IH 
= ae 8s md mt tt to ed Gs eh eH I nd od ed ed ad ad ad at eh Ht 
ooo00oo ooOo000o0o0o oooomoo0000o oo0o0o0o0o QOOOOOOOOOOOooo 


ff EEEEERE REE REE EERE ERE RRR ERE RRR RRR RR ERR ER ERR RR ERR ERS 


SSSSSS5555 


WONOWLWu-O 


RUSE 22 228822 ga CRU SERENE MRSS 


senacaccayyy 33 


wi 
pe 
es 


be bb 8 Be ee ee 


Bam Bt Fr ee st 2 2 pe Pe Bee 
bm Be bt ae es es ae ee es be eh 


b= bb Pb bs ee 
pet fae be fs fe Bt bt ee 


SORA Mex 


bb poo pepe Gas a pee 


pe pas bes pes be fe 
eo 


toe 
or 


JAF TRRM SRR 


29-JUL-77 


SRke SNSeee S8e 


£ 
2 


Gon Gin GEG Goh GE 


uw 
Bet tee 
or 


036726 
037622 





011756 


RMO3 FUNCTIONAL see’ PART 2 


001400 
001376 


_ 30( 1046) gad 15:01 PAGE 8S SEQ 0087 


ZERO FILL TEST 


;SETUP FOR oe STATUS AND THEN WAIT A SEEK TO COMPLE 


Jen PES TINOUT WalY FOR SEES co COMPLETE 


;GO READ SEEK STATUS 


ca ry ee 
FE” eos 00 To 168 Pana hae rouno 


60S: 

VERIFY THE RESULTS OF THE SEEK COMMAND 
ISR PC. SEKSTS :G0 VERIFY SEEK OPERATION 
BR 70$ F NO ERROR 
ERROR ae IRED BY SEXSTS SUBROUTINE 
SR PC, a(SP)+ ERROR CHECKS 
IMP 180s BACK GOTO 1808 IF ERROR HAS FOUND 


70S: 


; SETUP eee i WRITE HEADER AND DATA COMMAND 


;WAIT i aha COMMAND TO COMPLETE AND READ sans 


ta &< tCe+1> yi OOO WRITE HEA eR AO paTA 
MOV SPUTINGTS tENTEND REGIS INDEX TABLE 


PEO PUT -GO WRITE REGISTERS VIA PUT SUB 
gos G0 TO aus TF NO 


ERROR SPE ROR CE INED BY PUT SUB 
INP 180$  ;GO TO 180$ IF ERROR WAS FOUND 


PC, TIMOUT WAIT. F COMMAND TO COMPLETE 
PC’ GET j00,RERO ‘REGIS VIA GET SUB 
908 GO TO 90S IF NO ERROR 


JSR 

Noe ACTON IEE IF 

ERROR OPE TED Byer’ SUB 
180 60 TO 1808 IF ERROR HAS FOUND 


; VERIFY RESTS OF WRITE COMMAND 


100$: 


-G0 
NOP ;RETURN HERE IF ERROR 
‘ERROR # DEFINED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
JMP 180s ;G0 TO 180$ IF ERROR WAS FOUND 
JSR PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 110s :GO TO 110$ IF NO ERROR 


Scggegsssssccsaassscascccecactectnnseessccasaaess 3 


- = 
ie 


SELLE EL 
De bee De bam he bat oe 


SIFRIBR 


= RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 8 
29-JUL-77 14:07 T6 ILL TEST 


i ZERO F 
O11s44 00240 NOP ; RETURN HERE. IF ERROR 
tees firs Fe paggtsee EDD TAT Ea ee coun 
DUBS. 137 011756 opal hn | G0 TO 1608 I WAS FOUND 
Hes ome ooo i ane oe ee 
011564 000240 NOP Finis Eten ers RR atte 
Bi1258 ABUPSe Fer” pc, acspos ERROR 8 NORE ERROR Checks 
bis7e 000137 011756 ite JMP 180$ GO TO 180$ IF ERROR WAS FOUND 
011576 012737 177376 oo1woo *e MERDGR AMO Der e¢a5e, 41>, RAWCD WRT TEAD A FULL SECTOR 
Glieos lever Ontos folve =| Nett foro REN F Dae como 
rs ’ - 
ie ie eT 1, belies 
Bley Abdia? 011756 a, FE" eng ,co To 1008 Te Pra Tee Folio 
il ga7ee2 pon rr OC PtMOUT: — wo wenpitftl FOR READ TO COMPLETE 
HES Oa . BR roa ‘ G0 TO 1498 ia NO ERROR po ee em 
¥ 000240 NOP : RETURN HERE IF ERROR _ 
Ot ees doors? 011756 shits ie isos :G0 TO ieee PEROR Was F 
sVERIFY THE RESULTS AD OPERATION 
gts SE mom Ben ei EE Wt 
Hest ie _—_ PN ol el 
i 74 137 011756 aa JMP 180s ;GO TO 180$ IF ERROR WAS FOUND 
i 904737 os2312 ee PC, DTASTS pom LTS Siete ho" TRANSFER 
in go PEAR 
i7t 137 011756 eh, IMP 180$ TO 160$ IF WAS FOUND 
Lees powar ove Jen tpygecere 0 OC 0 SHO 
il 000240 NOP RETURN HERE IF 
ie ie ERROR TERROR @ BEFINED BY & BY SECERR SUBROUTINE 
il JSR —- PC, a SP)+ GO BACK FOR 
o1i7 137 011756 ee IMP 180$ ;GO0 TO 180$ IF ERROR WAS FOUND 
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STACK POINTER 
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;SET TEST NUMBER IN APT MAIL BOX 
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: 
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. DEVICE FOR TEST 
+ TASK oedch iP ron 

RETURN 

ERROR # 


PC, TSTPRP 
130 


JSR 

. WORD 
BR 
NOP 
ERROR 
JMP 


;PREPARE DEVICE FOR DATA TRANSFER 
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17 FORMAT CHECK ZEROS - 16 ie 


40S: 
;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK T 


Pe: Pinout Bl ro SLE co COMPLETE 


;G0 READ SEEK STATUS 


G8 ;¢0 To PPR madmen Age 


NOP 
PRROR RETURN OE INeD BY cer sus _ 
ee IMP 260S ;G0 TO 2608 IF ERROR WAS FOUND 
VERIFY THE RESULTS OF THE SEEK COMMAND 
ISR PC, SEKSTS GO VERIFY RESULTS OF SEEK OPERATION 
70$ GO T IF NO ERROR 
; RETURN F 
PC, a(SP)+ A BACK FOR FORE” ERROR. CHECKS — 
2605 : G0 TO IF ERROR WAS FOUND 


oe a M0 2 
HoH STON REGISTER INDEX TABLE 
ye 
sancel (Re)+ 


seat 
an 60 T0 obs’ RTE Reel REGISTERS VIA PUT SUB 
SP el PE ae 


260$ ;GO TO 260$ IF ERROR WAS F 


JMP 
; OR WRITE COMMAND TO COMPLETE AND Btdhe | 
in PC, TIMOUT FOR COMMAND TO COMPLETE 
BR 
NOP 


PC’ GET REG TERS VIA GET SUB 
90$ G0 TO ab ah 

ERROR Pasi GET SUB 

JMP 260$  ;G0 TO ofan IF WAS FOUND 

VERIFY RESULTS OF WRITE COMMAND 
ISR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
BR 100s jo. TO. 1 0s IF NO ERROR 
oo 8 DEFI PR 
can. (et RR rm ne 
JMP 260 G0 TO IF ERROR WAS FOUND 


;GO VERIFY RESULTS OF DATA TRANSFER 
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BR. 110 GO TO 110S IF NO ERROR 
ERROR t ERROR Se ee BY DTASTS SUBROUTINE 
ISR PC, a(SP)+ GO BACK F 
an IMP 260 ;60 er I WAS FOUND 
' ane Tobe. goto” nigts oF NO fone ; 
eR HE INE 
GE acs SR PER PaO 
JMP 260$ G0 TO 260$ IF ERROR WAS FOUND 
1208: 
WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV SWCH! GO, RMCS10 “WRITE CHECK COMMAND 
ISR PC, PUT GO WRI GI VIA PUT SUB 
BR 130$ ;GO TO 1 IF 
ERROR TED BY ut BY PUT SUB 
IMP 260$  ;GO TO ise IF ERROR WAS FOUND 


130S: 


;WAIT is ph CHECK TO COMPLETE AND = 3 STATS 


JSR PC, CGE 

BR 

NOP 

ERROR 

IMP 260$ 
140S: 

PC. PRIERR 

BR Shs 

NOP 

ERROR PC, a(SP)+ 

IMP 260$ 
150S:  cR —PC,DTASTS 

BR 160$ 

NOP 

BS pe arses 

JMP 260s 
160S: sR PC, SECERR 

BR 170$ 

NOP 

BRR PC, a(SP)+ 

IMP 260$ 
170$: 


T FOR READ TO COMPLETE 


60 TO 1403 TF 1 abla ee 
“le 


; VERIFY THE RESULTS OF WRITE CHECK ofeeatt 
JSR ;G0 CHE 


bee Sa 


ERHOR HAS FOUND 


Pe eae 


Be or anon DTASTS SUBROUTINE 
;G0 BACK FOR 
;G0 10 o6 BeOS IF IF ERROR WAS FOUND 


60 EH FF SEBO SEES 
SM cali 


;60 TO 
;G0 VERIFY ee 


SEQ 0091 
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17 FORMAT CHECK ZEROS - 16 
260$: 
$5 KERR SHE GHSA KNEES LEGA GSA LRM E SS LH SELLER RAEKE LARA EH 
TEST 10 FORMAT CHECK ZEROS W/ WCE 
es KEKE MRRSRLEREEE 
tST10: 
SCOPE ; SCOPE cee 
if SSTACK, SP SFMT TAL Ize etack POINTER 
MOV SBASE RO ; ROSUNIBUS ROORESS 
. ef = 
oe Rov STOR, «F812 FERRVACRRRING TESTI Box 
;SETUP PARAMETERS FOR TING DATA BUFFER 
MOV fo proce ;CYLINDER = 0 
MOV #0, RMDAO TRACK = SECTOR = 0 
MOV arf 8 RHOFO . j16 8 T FORMAT _ 
ie et 
MOV 8ZEROS iNGe Bul’ S DATA PATTERN 
MOV 1,STMP1 
a JSR PC, GENBUF GO GENERATE DATA BUFFER 
PREPARE DEVICE FOR DATA TRANSFER 
JSR PC . DEVICE FOR TEST 
.WORD 154130 ;TASK DESCRIPT pe 
BR 30S GO TO IF NO ERROR 
NOP sRETURN HERE IF 
ERROR ERROR ® DEFINED BY TSTPRP SUBROUTINE 
a IMP 260$ G0 TO IF ERROR WAS FOUND 
SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLI 
MOV SSEEK!GO, RMCS10 .C 0 
MOV ePUTINY Re *WRITE REGISTER INDEX TABLE 
HOVE snc’ (Ra) 
MOVB = SRMOF. (R2)+ 
move sRMCSI. (Re)+ 
O (fens WRITE STERS VIA PUT SUB 
ape O68 360 TO wig? IF NO 
NOP ; RETURN HERE IF ERROR ae: 
oa FRpOR 260$  ;GO0 TO obfe te PEFR Bae FOUND 
SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
ISR PC, GETSTS -SETUP FOR STATUS 
JSR PC, TIMOUT *WAIT FOR SEEK TO COMPLETE 


;GO READ SEEK STATUS 
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DZRMDA.P11 29-JUL-77 14:07 T10 FORMAT CHECK ZEROS W/ 
4333 012750 004737 037012 JSR —s- PC, GET GO READ REGISTERS VIA GET SUB 
yaay 000404 BR 60$ :G0 TO obs IF IF NO ERROR 


HERE IF ERROR 


5 
fala ===) 
BRS 


000240 NOP 
4 NED BY GET SUB 
‘ ABO orause = oer 260 co 70 alse PREBBLE, Sin 
4 e 
at owriy | ERIFY SHS ee 
za . Bee Tt ee eee 
4 1 ed ae BY SEKSTS SUBROUTINE 
4 1 Ase ERROR PC, a(SP)+ NER ERROR CHECKS 
nea) 13002 000137 013452 JMP 260 G0 TO 260$ IF ERROR WAS FOUND 
4 013006 70S: 
4 ;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
y 013006 wul2737 000063 001376 MOV lH! GO, RNCS10 sLOAD WRITE HEADER AND DATA 
ree { ¢ 


agit Oa opie 2 


FORMA 
MOV nny aa! = ;EXTEND REGISTER INDEX TABLE 
ag h 
R2)+ 
Aose 
JSR 
BR 


05, GISTERS VIA PUT SUB 
go$ 0 wo 

NOP 

Te 260s 





sccnsegaancanan 4a 


irae GO TO 2608 IF 
80S: 
;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
m ot panel 037012 Ten pe? eT nares VIA 1 os es 
He Bae, Bem a 

4367 01 000240 NOP San oF eb on 
4 otra Apo 013452 ie 260$  ;G0 TO ites eae 

0 13100 90S: 

sVERIFY RESULTS OF WRITE COMMAND 
& 040006 : Pe Pr ;G0 CHECK FOR PRIMARY 
ie EN th ca TERR 360 Aan 1 Tro RO ERROR 
ae TENT: nace iF EROR 8 INED BY PRIERR SUBROUTINE 
0131 bois ISR PC, a(SP)+ GO BACK FOR MORE 
te : Hs 000137 0134S2 ss IMP 260 G0 TO IF ERROR WAS FOUND 
13120 004737 oS2312 * ‘JSR PC, DTASTS ;GO VERIFY TS OF DATA TRANSFER 

‘ : : BR 116s GO A F NO ERROR 
aor Lat ERROR ED BY OTRSTs 98 ee 
4 131 JSR PC, a(SP)+ 
= ort 000137 0134S2 ea IMP 260 Back FG TO 2608 IF ERROR i WAS FOUND 
4 t tig 004737 O40640 * ‘JSR PC, SECERR ;GO0 CHECK FOR 
4388 O13144 QO0MO= 12s To 1205 IF NO ERROR 
. 1 146 poo e4C NOP ; RETURN 
4390 013150 104000 ERROR ‘ERROR ® DEFINED BY SECERR SUBROUTINE 
4 1315 004 ISR PC, 3(SP)+ :G0 BACK OR CHECKS 
4 13154 000137 0134S2 IMP 260 G0 TO IF ERROR WAS FOUND 
4 013160 1208: 
4 ALTER DATA BUFFER 
ae 013160 005137 103576 COM BUF TWO-2 ;COMPLEMENT LAST DATA WORD 
y 
a338 ;SETUP AND WRITE CHECK HEADER AND DATA COMMAND 
wot O17e ee nee fy See oR He a “alee GO WRITE SPO ISTERS TERS Ora PUT SUB 
aoe 131 Boos BR 180$  ;GO TO 180$ IF NO ERROR 
oe ew thee or SAU OF ed ED se 
4405 O01 137 013452 IMP 260S G0 TO 2608 IF ERROR WAS FOUND 
4406 013210 180S: 





1448 33 


£EEESEESE 


DONO EWU 


TGAER 


CO8 
PS PUP oR GR m0 oo 


WAIT FOR WRITE Smits COMMAND TO COMPLETE int foe “STATUS a 
ist ae ‘co to 1883 OE vin cet Sie 
BRROR ojERPOR DE IRED Peet sue 

iam IMP 260$ ;GO TO 260$ IF ERROR WAS FOUND 


(Oak Pe ee ee 60 CHECK F 
eB SB 


F 
RETURN fine Tr ERROR 
ERROR nate INED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ if BACK FOR MORE ERROR CHECKS 
JMP 260 G0 TO 260$ IF ERROR WAS FOUND 


gsssssasaseEEY 2 


zs 
: 
af 


TEST, PART 2 oars 30(1046) 29-JUL-77 15:01 PAGE 3 SEQ 0096 
T10 FORMAT CHECK ZEROS W/ WCE ERROR 


sare day Spotty: Bb - * mechtmedvotes  4 
»RMCS2I WRITE CHECK ERROR SET?? 





HOS eae té«O 
be 52312 Be TASTS G0 0 en bes | OF DATA Tres TRANSFER 
BR, 08S 
ERROR ‘a INE 
13k PC, 3(SP)+ oe 
013452 at WAS FOUND 
001140 20SS: MOV Racoe T eat C FOR 
001140 BIS T 
13 133% 001142 MOV RMCSeI , SBDDAT Lo RECEIVED STATUS 
1 ERROR 337 TE CHECK ERROR NOT DETECTED 
Bisco a 
3.30 210S: y 
;VERIFY THE ADDRESS OF THE WRITE CHECK ERROR 
013390 012737 103576 001134 MOV SBUFTWO-2, SGDADR sLOAD EXPECTED ADDRESS 
13336 013737 001332 001136 MOV RMBAT, SBDADR LOAD RECEIVED ADDRESS 
013344 162737 000002 001136 SUB #2, SBOADR > DE RECEIVED ADORESS 
WCE DATA AND VERIFY IT IS OK 
1335 Hove xe eis Daertone- neste: 
13366 ISR PC, GET _— REGI VIA GET SUB 
1 BR 230$  =;GO0 TO ois Tr ar 
: NOP > RETURN F ERROR 
i ire PORT sober” . L # FOO TA WORD 
: HOV , SGDDAT it OAD BEPECTED wae WORD 
} cH SGDADR , SBDADR 51S ADORESS OK?? 
1 ERROR Soo" rests OF WCE INCORRECT 
ety cH SEpDAT, SBDDAT ;1S_DATA WORD OK?? 
OL S50 ERROR sf *UNEXPECTED WCE DATA 





$3 RAHA AB GGA AAR RRS EEE RE REAR RR AREREE 
tRTEST 11 FORMAT ONES - 16 
© RESELL AGREE ARERR REE RRA ARERR REALE R RRR KEE 
013452 tSTil: 
13452 000004 SCOPE : 
13454 NOP START OF TEST ° 
13458 12706 001100 MOV aSTACK INITIALIZE STACK POINTER 
1 1 001276 MOV SBASE * ROSUNI Ss 
13466 013701 001446 MOV TSTQUE Ri *(R1) = DEVICE BEING TESTED 
1372 012737 000011 oo1226 MOV #11, STESTN SET TEST NUMBER IN APT MAIL BOX 
013500 10S: 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
013500 012737 000000 001432 MOV 80, RMDCO CYLINDER = 0 
013506 012737 000000 001404 MOV #0; RMDAO ‘TRACK = SECTOR = 0 


RMNO3 FUNCTIONAL PART 2 WMACY11 30(1046) JUL-77 15:01 PAGE 9S 
i : Til ORRAT ones = 16 eo rer 


Pil 29-JSUL-77 14: F 
013514 012737 010000 001430 MOV 8FNT16, RMOFO 316 BIT FORMAT 
i Te ines Balsa? HOV at co4256. ?+1> ,RAWCO pt 
i i MOV SHH orealy >WRITE AND DATA 
poLiZ4 ov “USE ALL ONES DATA PATTERN 
A 176 & ® 1 
114 a JSR . ;GO GENERATE DATA BUFFER 
;PREPARE DEVICE TA TRANSFER 
004737 033274 Bt eR TSTPRP *PREPARE DEVICE FOR TEST 
154130 -WORD 154130 ;TASK DESCRIPTOR 
i Shy a 
1 ERROR + ERROR 8 INED BY TSTPRP SUBROUTINE 
000137 014252 ee JMP 180 GO TO 180$ IF ERROR WAS FOUND 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
GO, RMCS10 T 
NX, Re WRITE REG res INDEX TABLE 





aR peypor 3 
*RETURN HERE IF ERROR 


‘iui FE ses sco ro 168k PREBLE Ay 


;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
036726 JSR PC,GETSTS ;SETUP FOR STATUS 
037622 JSR PC; TIMOUT ;WAIT FOR SEEK TO COMPLETE 


GO READ REGISTERS VIA GET SUB 


600137 
004737 
004737 
Bocas — BR Bos ;00 To GOS IF NO ER 
600137 
so 
bu? 36 





F ERROR 
ERROR erred D BY. Ger SUB 
014252 a INP 180$  ;GO TO iB 
1 044714 —" Toh REST ok sis — ;G0 vER IFY SEEK OPE OPERATION 
; i be 708 i OLE 
1 RROR INED BY TS TINE 
i cee pc.acsP)+ Da ‘e ae LRROR CHECKE 
i 000137 o142S2 si IMP 180s ;GO TO 180$ IF ERROR WAS FOUND 


ASEARARSUUMGMRNSAAINNIANRS CaanRRansstsssstssstasttss HT 


;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 


110$: 


120$: 





Be bisr3r Tosecd Dolade 


SSSSSRapRSaRenaseasangannanpennnnniunaunnssesssssents Ti 


- 
— 


apeugyge2 


8 
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ONES - 16 
iH! GO, RMCS10 ;LOAD WRITE HEADER AND DATA 
seul a3) EXTEND REGISTER INDEX TABLE 

* (Ro) 
eS (As 
BE PUT 7 GO WRI GISTERS VIA PUT SUB 
sot 300.70 O08 eT cmon 

Sch BY PUT SUB 


;WAIT FOR WRITE COMMAND TO COMPLETE 
GO TO ois IF 


180$ ;G0 TO ew ee ee, oO 


sets 6 uncom 


JSR 


JSR 


JSR 


JSR 


;READ HEADER AND ro Fe 


00 To site Lwin unk Foue 


AND READ STATUS 


GO _ READ no" ReisTEns VIA GET SUB 


TO COMPLETE 


ie res 1S, 19, OOS HF MO ER 
F NO ERROR 


Sas oe — 
;GO VERIFY 5 oho ERROR 
one Lhd el 
;G0 CHECK FOR To-1g08 JF NO ERROR 


OF DATA TRANSFER 
;60 TO 1 IF ERROR WAS FOUND 
ER # DEFT St tet ated 
;G0 TO 1 IF ERROR 


Bre JUST art 4 


160, RNCSIO ob Date DATA. COMMAND 
pe put —s GI vin BUT PUT SUB 
iss. GO TO rae el 


180$  ;GO TO mi IF Bes OUND 


£55 


sseeneccercecencacensaccncsetereesecesceacecessesess Hi 
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FORMAT ONES - 
;WAIT FOR REA TD OT we eT mae ;WAIT FOR READ TO COMPLETE 
iF PesGeT co 10 183 Panag vt TS 


FE ace sco 10 188S PRM RE Si 


140$: 
; VERIFY RESULTS OF READ OPERATION 
J PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
BR isbs , 19 i F NO ERROR 
HeROR See aeN ST ECEINED BY PRIERR INE 
ISR PC, a(SP)+ GO BACK per 
neal IMP 180$ ;GO TO 1680S IF ERROR WAS FOUND 
“ ‘JSR PC, DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
BR 160s 560 TO Ie ere NO ERROR 
JSR PC.a(SP)+ BACK F ePINED . = 
ate JMP SOS ae TO Tes ts ERROR AS FOUND 
" ‘JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 170 GO Ti 1708 F NO ERROR 
ERROR oo # DEFINED BY SECERR SUBROUTINE 
FRR pc acspi+ BBck FOR rep LRROR CHECK 
one IMP 180$ BACK COTO 1608 IF ERROR WAS FOUND 
;VERIFY DATA 
ISR PC, CMPBUF ;G0 WRITE, » ERD DATA BUFFERS 
won BES = ARNG A TR Oe Wate BUFFER 
BR 180$ 9 180s OF NO ERROR 
hon Su Fa bear sem 
ae ERROR # DEFINED BY INE 
: en tain e ne 
‘ATE FORMAT CHECK ONES - 16 
; a eeeeueeuveneenenatoaseneenbenedvecaneaaeaaeaaeaaeaaeaaetans 
SCOPE : CALL 
NOP ipTaRT OF Test 
MOV #STACK, SP NITIALIZE STACK POINTER 
MOV SBASE *RO=UNIBUS ADDRESS 
MOV TSTQUE,R1 *(R1) = DEVICE BEING TESTED 
ie MOV #12, STESTN SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV #0, RMDCO ;CYLINDER = 0 


MOV #0, RMDAO ; TRACK = SECTOR = 0 


b+ bb be sl 


GRRSESR GResss Se Bh 


oo 


SSSSSEAISSSESSESRERSEREEE CEA Aeaceccceneareenesacestees 13 


oOo0000O fo jlaleloj=l=) 
es bf Be he pee he 
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4314 es oo om a rape le Sh 9 A . ae FORMAT 
Si cote BR Sn ars, 
i 001174 MOV bores, $TrPo tare ONES DATA PAT PATTERN 
a Bolize Wey si, j 


PC, GENBUF ;GO GENERATE DATA BUFFER 


20S: 
033274 i PREPARE DEVICE OR OOTRP ne ER RePARE DEVICE FOR TEST 
.WORD 154130 ;TASK DESCRIPTOR ‘ > ink domes 
oe t ERROR pera fhe ie’ TPRP SUBROUTINE 
015026 oe ie 260$ : lho ir ERROR WAS FOUND 
SETUP PARAMETERS soft rc SEEK TO CET DR e, 





Me 
004737 
ia 
Big 
012737 
012702 
112722 MOVB SAMA )+ 
{ (Re)+ 
1, (Re)+ 
112722 MOVB 8200, (Re)+ 
oon a7 ISR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
40$ G0 TO IF NO 
Toso NOP * RETURN ei BOR 
137 015026 ia eRe 260 GO TO obfe te per an Dae F 
;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
004737 036726 JSR PC, GETSTS ; SETUP FOR STATUS 
004737 037622 JSR PC; TIMOUT ‘WAIT FOR SEEK TO COMPLETE 
;GO READ SEEK STATUS 
004737 037012 JSR PC, GET GO READ REGISTERS VIA GET SUB 
alt BR 60$ G0 TO obs IF SIF NO ERROR 
104000 ERROR EROR DEFINED BY Get BY Ger SUB 
000137 o1S026 se IMP 260$  ;G0 TO oie IF ERROR WAS Fi 
;VERIFY THE RESULTS OF THE SEEK COMMAND 
o0u737 044714 JSR PC. SEKSTS G0 VERIFY RE TS OF SEEK OPERATION 
BR 70$ -GO TO IF NO ERROR 
000240 NOP ; RETURN IF ERROR 
04000 ERROR ERROR # DEFINED BY SEKSTS_ SUBROUTINE 
736 JSR PC. a(SP)+ GO BACK FOR MORE ERROR CHE 
137 015026 aa JMP 260 GO TO 260$ IF ERROR nAS FOUND 


;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
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T CHECK ONES - 
14526 012737 000063 001376 MOV #WH!GO, RMCS1O sLOAD WRITE HEADER AND DATA 
ive fi i poonee MOV sPUT Nis if EXTEND REGISTER INDEX TABLE 
o 
Nove bere (Ro)+ 
1 000000 MOVB = #RMCSI., (R2)+ 
1 god209 MOVB (Re)+ 
1 JSR PC GO WRITE REGISTERS VIA PUT SUB 
1 BR go$ G0 TO aig” IF NO ERROR 
hen tos on FSU eh FPN se 
1 Arte o1so26 IMP 260S .co To abate Bein ie Fou 
14576 80S: 
: ;WAIT FOR WRITE cae COMPLETE AND re TSATUS an i: jemi 
taza ea a re Jen Pos dat jG0, READ’ REGIS VIA GET SUB 
14608 000404 BR TO 90$ IF NO ERROR 
tuts 999000 ERROR i BEAU DEFINED BY cer gy cet SW 
14614 000137 015026 IMP 2608  ;G0 TO 2b0$ IF ERROR WAS F 
14620 90S: 
VERIFY RESULTS OF WRITE COMMAND 
14620 ISR PC, PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
1 100s T 100$ IF NO ERROR 
1 NOP ; RETURN F 
i ce PC, 3(SP)+ ie Reo Oe tee Or ROA ch ae ages 
Lies <i JMP 260$ 360 TO I ERROR WAS FOUND 
{Hes " ‘JSR PC, DTASTS ;60 vent TS OF DATA TRANSFER 
1 BR 116s 0.1108 1 IF NO ERROR 
14es0 ERROR ER é ete TASTS. SUBROUT INE 
1 JSR PC, a(SP)+ 
1ueeH cook IMP 260 G0 TO IF ERROR BAS FOUND 
1HeeD <a PC, SECERR GO CHECK FOR SECONDARY ERRORS 
1 BR 1205 -GO TO 120$ IF NO ERROR 
1 NOP RETURN HERE IF ERROR 
146 ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
1 JSR PC, 3(SP)+ GO BACK FOR MORE YeROR CHECKS 
rh te 000137 015026 an IMP 260$ GO TO 260$ IF ERROR WAS FOUND 


;WRITE CHECK HEADER AND DATA FOR SECTOR wat WRITTEN 


O14 012737 000053 001376 MOV SCH! GO, RMCS10 WRITE CHECK COMMAND 
14 037262 JSR PC, PUT WRITE REGISTERS VIA PUT SUB 
014712 OOO404 BR 1308  ;GO TO 1488 IF in NO ERROR 
014714 000240 NOP ;RETURN HERE IF ERROR 

14 44009 ERROR ERROR DEFINED BY PUT SUB 
o1N7e0 137 015026 wae IMP 260$  ;GO0 TO ohne IF ERROR WAS FOUND 


;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 





Se SLA" AUP I! = on 


=e 014724 


JSR PC, TIMOUT WAIT FOR READ TO 


037622 COMPLETE 
oor iF” co 10 sid REIS Tm AT 
015026 ie 260$ ;G0 TO ise SEE DEED BG 10 


; VERIFY THE RESULTS OF WRITE CHECK OPERATI 





ig 
A5d099 
040006 PRI ;G0 CHECK FOR PR 
Baoas Bp TEAGRIERR an isos TF 'HO ERROR 
rey Her a ue BY PRIERR SUBROUTINE 
Api FRROR bc. a(SP)+ Woke ERRGA Chetke 
000137 015026 ote IMP 260$ ;G0 TO 2608 IF ERROR WAS FOUND 
052312 " ‘JSR PC, DTASTS ;G0 VERIFY OF DATA TRANSFER 
Biot meets rV0 hs ir WO ERROR 
1 iovg00 ERROR Hep BY DTASTS SUBROUTINE 
1 736 JSR PC, 3(SP)+ Py a 
1 000137 015026 il IMP 260$ GO TO 260$ IF ERROR WAS FOUND 
{ 1005 +004737 040640 * ‘JSR PC, SECERR ;G0 CHECK F SECONDARY ERRORS 
15012 O00405 BR 1708 oo 10" 1708 I IF NO ERROR 
4 15014 NOP RETURN eee 
4 1501 ERROR ERROR # DEFI NED BY CETTE CERR SUBROUTINE 
4 1 736 ISR PC, a(SP)+ CHECKS - 
4 1 137 015026 IMP 260$ ona 9 hone IF ERROR WAS FOUND 
a 1 170S: 
nia 015026 260S: 
4795 : [aN erie 
4 t kTE TEST 13 FORMAT CHECK ONES W/ WCE ERRORS 
. 1 } |, SCSeUaaNORNERNTSHOSHUREAAERSERENERERSREDAERSERINOREROUERORDOROD 
“733 planes gonm scope 1 - 
4801 O1 12708 901100 HOV aSTACK, SP ; INITIALIZE STACK POINTER 
4a i 1 an 001 MOV TOQUE, Ri Hy 1) = DEVICE BEING TESTED 
4804 O01 1 000013 001226 MOV #13, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
= 015954 10S: 
SETUP PARAMETERS FOR GENERATING DATA BUFFER 
015054 012737 000000 01432 HOV #0, RMDCO CYLINDER P 
i) Hee Bee HR YEA or aa 
11 O1 1 177376 001400 MOV 8<#0< 24256. >+1>, RMWCO 
12 015104 01 12574 001402 MOV SELF ONE , RMBAO ‘bate Bu BFFER B ADDRESS 
1 1eile 1 1 MOV WH 10 ‘WRITE HEADER AND DATA 
14 0151 1 064046 001174 MOV SONES, STMPO *USE ALL ONES DATA PATTERN 
iS Ol 12 990001 001176 MOV #1, STAPL 
1g 1 14 fet 114 o JSR PC; GENBUF GO GENERATE DATA BUFFER 
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;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 


x 454130 s TASK DESCRIPTOR 60 0. 308 IF IF NO ERROR 
pM gh Bd INE 
Fen 2608 Rrnen eT TP ERROR RAS FOUND 
; SETUP PARAMETERS BND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
NOV SPuT Li fo ERIE REGISTE GISTE Thor TABLE 
MOVE = @RMDA, (R2)+ 
MOVE‘  SRMDC, (Ro)+ 
MOVB  SRMOF. (Ro)+ 
mys Esinsis 
JSR PC. PUT -GO WRITE REGISTERS VIA PUT SUB 
BR 4o$ G0 TO bo F NO ERROR 
ERROR “ERROR DEFINED Pay PU SUB 
wae IMP 260$ ;GO TO 260$ IF ERROR WAS FOUND 
; SETUP FOR, READING isis AND THEN WAIT Eat og SOMPLET 
ISR PC, TIMOUT :WAIT FOR SEEK TO COMPLETE 


;GO READ SEEK STATUS 


JSR PC, GET gO ae REGISTERS VIA GET SUB 


BR 60$ GO TO obs IF 
NOP IF ERROR 
ERROR PEROR DEFINED BY GET SUB 
IMP 260$  ;GO TO if IF ERROR WAS FOUND 
VERIFY THE RESULTS OF THE SEEK COMMAND 
ISR PC. SEKSTS GO VERIFY RESULTS OF SEEK OPERATION 
BR 70$ -GO TO 70$ IF NO ERROR 
NOP ; RETURN IF ERROR 
ERROR “ERROR ® DEFINED BY SEKSTS SUBROUTINE 
ISR PC, 3(SP)+ GO BACK FOR MORE CHECKS 
ai JMP 260 G0 TO IF ERROR WAS FOUND 
SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
MOV TEHtcd RNCEIO ;LOAD WRITE HEADER AND DATA 
MOV SPUTINK+3, Re EXTEND REGISTER INDEX TABLE 
MOVB SRAM }+ 
MOVB 8RMBA (Re) + 
HOVE #RMCS1. (R2)+ 
#200, (R2)+ 
JSR PC, PUT GO WRITE REGISTERS VIA PUT SUB 
BR g0$ :G0 TO gAS IF NO ERROR 


SE@ 0103 
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NOP ;RETURN HERE e IF ERROR “ 

aoa ie 260$  ;G0 TO oife it ERROR bas FOUND 

;WAIT FOR WRITE COMMAND, To COMPLETE AND REA SATUS  tenre 
15 Be’ GET RE ISTeRS VIA GET SUB 

NOP 


ee 


; IF ERROR 
ERROR “ERROR DEFINED BY GET SUB 
on IMP 260$ 0 TO 2608 IF PRROR WAS FOUND 
;VERIFY RESULTS OF WRITE COMMAND 
JSR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
BR 100 °GO TO 100$ IF NO ERROR 
NOP ; RETURN IF ERROR 
“ERROR ® DEFINED BY PRIERR SUBROUTINE 
JSR PC, 3(SP)+ GO BACK FOR MORE CK 
at JMP 260 G0 TO IF ERROR WAS FOUND 
JSR PC, DTASTS GO VERIFY OF DATA TRANSFER 
BR —Ssé«L;dLCSS : 1 F NO ERROR 
NOP ; RETURN F 
ERROR ERROR # DEFINED BY DTASTS SUBROUTINE 
ISR PC, a(SP)+ :GO BACK FOR ERROR CHECKS 
an IMP 260 3G0 TO 260$ IF ERROR WAS FOUND 
JSR PC, SECERR ;GO CHECK FOR SE 
BR 1205 GO TO cwa ND BOReR 
NOP ; RETURN HERE IF ERROR 
ERROR ERROR # INED BY SECERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR CHECKS 
ae IMP 260$ ;GO TO 260$ IF ERROR WAS FOUND 
ALTER DATA BUFFER 
COM BUF TWO-2 COMPLEMENT DATA WORD 
;SETUP AND WRITE CHECK HEADER AND DATA COMMAND 
MOV #HICH! GO, RNCS10 LOAD COMMAND 
JSR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
BR 180$  ;GO TO 180$ IF NO 
NOP ; RETURN IF ERROR 
ERROR ‘ERROR DEFINED BY PUT SUB 


1608 JMP 260$ ;G0 TO 2608 IF ERROR WAS FOUND 


;WAIT FOR WRITE CHECK COMMAND TO COMPLETE READ STATUS 
JSR PC, TIMOUT WAIT FOR COMNMMAND TO COMPLETE 
_ PC, GET SUB 


190$  ;GO TO 1590S IF NO ERROR 
NOP RETURN HE’ 
ERROR “ERROR DEFINED BY GET SUB 





DZRMDA.P11 


DZRMDA - RMO3 FUNCTIONAL Lye A PART 2 


pisece 
1 015526 


oA 


1 
7 


1 
A 


Bt bes am bt he be ee 


Dame he eee fae Ben hs fe bs en fs ts Bee 


ooo 
Gas tas pe 

4y AL 
aya if 


ee a ere eIeE 


RR 


+ 





i 





Pee Fe Fe bh fe Bee fee = Fe Ba te he be he ee 


BREET SSS SS REESE RPE aR ESTATE 88 
Za 


000137 


Ritwelu Gein 


29-JUL-77 14 


015744 


040006 


001140 


001336 


001142 


MO8 


MACY11 30( 1046) la =e 15:01 PAGE 103 
T13 FORMAT CHECK ONES W/ WCE ERRORS 


SEQ 0105 


ae IMP 260$ § ;GO TO 2608 IF ERROR WAS FOUND 
CHECK FOR PR 
“yen G0 CHECK FOR PRIMARY ERRORS 
G0 TO IF NO ERROR 
sRETURN PERE TF ERAOR. ORY PRIERR SUBROUT INE 
Een PC, a(SP)+ GO BACK FOR MORE CHECKS 
IMP 260S G0 TO IF ERROR WAS FOUND 
200: 
MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 
BIT BHCE ,RMCSe ;1S WRITE CHECK ERROR SET?? 
oe Be DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 205$ GO 0 205$ IF NO ERROR 
tee RETURN PERE IE Caron 
ERROR : SEROR 8 INED BY TASTS SUBROUT INE 
ISR PC,a(SP)+ G0 BACK FOR HORE Sc ones 
20ss: ov 1, SCDOT +O ed EXPERTED Eo 
ait POY mee pane PE ESEGX ERROR NOT DETECTED 
VERIFY THE ADORESS OF THE CHECK ERROR 
HOV sccAOR ; LOAD EXPECTED ROORESS 
SUB i HeCRENENT- NEPETVED AD ADDRESS 
CET WCE DATA AND venere 1 IS 0K 
MOVB #RMOB SETUP FOR READING RMOB 
WeR peOReF in STERS VIA GET SUB 
BR 230$  ;GO TO 230$ Bo PETA ERHOR 
ERROR 2 ois OR DEFINED BY coy BY GET SUB 
230S: ov ReDS, saiger DATA WORD 
MOV BUF TH-2, SGDOAT TOAD EXPECTED DATA WORD 
or , SBDADR 51S ADDRESS 0K?? 
ERROR 340 ADDRESS OF WCE INCORRECT 
ieee BR 260S 
"CMP T, SBDDAT -IS DATA WORD 0K?? 
BEQ oat *YES!! 
in ERROR 341 ‘UNEXPECTED WCE DATA 


i SE AE HE He HE HE HE 06 HE 6 6 EE aaa a 


BRERREEKS 
jATesT 14 FORMAT MULTIPLE SECTORS 
seta ai omit tnenninarinhctaaiataiaeaaaaaae 
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TST14: 
a9 b SCOPE ;SCOPE CALL 
NOP START OF TEST 
HOV NITIA I K POINTER 
MOV are FRI) ING TESTED 
001226 a MOV #14 Bt > SET = OeVice el IN APT MAIL BOX. 
4egq : 
-SETUP PARAMETERS F TING DATA 
ie 8 001432 ° MOV Gof rote “re = ;EYCINOER_= 0 
001404 MOV 80 RMDAD = SECTOR = 0 
a3 51 14 HOV a<t te 04241, ik iy 6 SECTORS 
: 1 - MOV solr :bA Bren ApaRESS 
1376 MOV 8H. RMCS10 sa HEADER AND DATA 
. 001174 MOV STMPO USE ALL ZEROS DATA PATTERN 
1 001176 MOV a, 1 
. 114 a JSR : 0 GENERATE DATA BUFFER 
;PREPARE DEVICE FOR DATA TRANSFER 
i 004737 033274 ISR TSTPRP DEVICE FOR TEST 
1 . WORD 154 - TASK oeScrIPT 
1 BR TO 30$ IF NO ERROR 
i 07 BRROR ERROR ene IE BY TSTPRP SUBROUTINE 
ot 07% spot ae 016520 via IMP 180 GO TO 180$ IF ERROR WAS FOUND 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
916076 018737 MOV 160, RMCS1O sc 0 SEEK 
104 O1 MOV INX, Re ‘WRITE REGISTER Inoex TABLE 
1 19 11272 ,» (R2)+ 
i 18765 » (Re)+ 
27 ee (Re)+ 
ible 1e?es MOVE = #RNCSI., (R2)+ 
1 127e¢ MOVB 8200, (Re)+ 
4 ISR pc PUT WRITE STERS VIA PUT SUB 
4 G0 TO IF NO 
144 APR i ROR NED Mos PUT SUB 
ible A. 180$ ;GO TO 1808 IF SRROE Peron WAS FOUND 


;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
036726 JSR PC, GETSTS ;SETUP FOR STAT 
037622 JSR PC; TIMOUT ;WAIT FOR SEEK TO COMPLETE 


;G0 READ SEEK STATUS 
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161 037012 JSR PC, GET GISTERS VIA GET SUB 
161 BR 60$ j00 10 bof NO 

161 NOP Se TURN 

161 ERROR SE Oe DEFINED BY Cer SUB 
16174 000137 016520 IMP 180$  ;GO TO Aer e IF ERROR WAS FOUND 
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SEQ 0107 


60S: 
Nan BG MS Sah TR 


Hee e ere Oe OPERATION 


AOE Ee eee 


JSR PC, a(SP)+ bs BACK FOR MORE ERROR CHE! 
=, IMP 180s 60°10 1608 IF ERROR WAS FOUND 
; SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND oan eal 

MOV SPUTINK+3 EEN et SPOER Bee Pree 

MOVB SRMNC, (R2)+ 

MOVB = SRMBA’ (Ro)+ 

ma tsi 

(R2)+ 

ISR PC PUT os -GO WRITE REGISTERS VIA PUT SUB 

NOP : on MERE IF ERROR 

ERROR ‘ERROR DEFINED BY PUT SUB 
ote, IMP 180$ ;GO TO 1808 IF WAS FOUND 


;WAIT FOR WRITE Pe, HOUT TO COMPLETE AND READ 


JSR T TO COMPLETE 
JSR aig? READ iReay Fone VIA GET SUB 
TAS ee: GET SUB i 
IMP 180$ ;GO TO 180s ied oF FOUND 
VERIFY RESULTS OF WRITE COMMAND 
JSR PC, PRIE ;GO CHECK FOR PRIMARY ERRORS 
BR 100s To 100s IF NO ERROR 
i ROR 8 Rene IF ERROR IERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE CHE: 
aah JMP 180s ;GO TO 160$ IF ERROR WAS FOUND 
«SR PC, DTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 
BR 116s F NO ERROR 
NOP ; RETURN 
ERROR ERROR & BEE IKED BY DTASTS SUBROUTINE 
JSR PC, 3(SP)+ :GO MORE ERROR CHECKS 
ad IMP 180s ;G0 TO 180$ IF ERROR WAS FOUND 
* ‘JSR PC, SECERR GO CHECK FOR SE 
BR Soe” jo2. 9. 1208 AF NO ERROR putas 
RROR SEROR INED BY INE 
SR pe acsp)s ae nD BY SECER een 
oa JMP 180$ GO TO 180$ IF ERROR WAS FOUND 
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;WRITE CHECK HEADER AND DATA pa SECTORS JUST WRITTEN 


oe ot aan ware RERISTERS. via’ut Sue 
130$  ;GO TO 130$ IF NO 


oe take 


016520 180$  ;GO0 TO 180$ IF ERROR WAS FOUND 


130$: 


;WAIT FOR WRITE CHER TO COMPLETE AND GET 
reno Ht gains ok TO FINISH 
as :G0 TO igs ae 


nae 
ai 180$  ;GO TO if IF was FOUR 


; VERIFY THE RESULTS OF WRITE CHECK OPERATION 


016520 


Saneits | Snee8N 


aii 
SES ME Es 
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an 


Reneee 


040006 ISR PC. PRIERR 360 CHECK FOR PRIMARY ERRORS 
BR 1sbs T At F NO ERROR 
NOP sera Hep te eareRR 
ISR PC, a(SP)+ rep ERROA ete ie 
016520 he IMP 180s ee TO 180$ IF ERROR WAS FOUNDS*” 
052312 * ‘JSR PC, DTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 
BR 160s TO. 60S IF NO ERROR 
BRR pa 
ERROR a heaeed #D INED BY DTASTS SUBROUTINE 
016520 me IMP 180$ TO 180$ I ERROR GAs FOUND 
040640 "JSR PC, SECERR ;G0 ies FOR SE 
BR 1705 GO TO Me NO EoROR * 
Een BTM MEE 
ERROR ERROR ® DEFINED BY SEC SECERR SUBROUTINE 
ISR PC, 3(SP)+ iE BACK FOR MORE ERROR CHECKS 
016520 shen IMP 180$ ;GO TO 180$ IF ERROR WAS FOUND 
180: 
. ‘iter is TORT W EAD SMITCHING 
6520 ; jsbesudceneunnneeeeceeseccseceseessessceneesececeueuessrensesese 
6520 000004 ;SCOPE CALL 
>START OF TEST 
1 001100 MOV SSTACK, SP INITIALIZE STACK POINTER 
013700 001276 MOV SBASE RO j ROSUNIBUS ADDRESS 
boa 013701 001446 MOV TSTQUE,R1 *(R1) = DEVICE BEING TESTED 
40 b1e73? 000015 001226 ce MOV #iS ie Stes TN SET TEST NUMBER IN APT MAIL BOX 
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;SETUP PARAMETERS FOR GENERATING DATA 
MOV #0, RMOCO 


SEQ 0109 


BUFFER 
;CYLINOER = 0 


: A SECTOR 
nov act 1,RFO cite i FoR CTORS 
a hemmmaamm Oe 
MOV 8ZEROS + USE Heo RCS DATA PATTERN 
i ee GENERA BUFFER 
a ISR : :G0 TE DATA 
PREPARE DEVICE FOR DATA TRANSFER 
ISR PC, T : DEVICE FOR TEST 
.WORD 159130 ;TASK DESCRIPT 
BR 30S GO TO 30S IF NO ERROR 
BRROR sBETURN PERE TE ERROR 
; # DEFINED BY TSTPRP SUBROUTINE 
a IMP 180$ G0 TO 180$ IF ERROR WAS FOUND 
SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
MOV BSEEK: GO RMCS10 : TO SEEK 
MOV NX, Re ‘WRITE REGISTER INDEX TABLE 
MOVB BANDA CRED + 
MOVB = SRMDC, (RO)+ 
MOVB = SRMOF. (Ro) + 
MOVB  aRMCSI. (Re)+ 
MOVB 8200, (Re)+ 
JSR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
BR 4o$ :GO TO 40S IF NO . 
ERROR ‘Ree a ay Bur SUB 
ae IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 
; SETUP FOR, READING STATUS AND THEN WAIT FOR SEEK TO COMPLET E 
ISR PC; TIMOUT BBIT FOR SEEK TO COMPLETE 


SR PC, GET ig? READ REGISTERS VIA GET SUB 
60$ G0 TO IF NO 

NOP ; RETURN IF ERROR 
ERROR ‘ERROR DEFINED BY GET SUB 
IMP 180$ § ;GO TO 180$ IF ERROR WAS FOUND 

NEROFY PS PESURIS 9 RE SEEM COMERE ary mess OF SEEK opERATION 
BR 70 ’ too 708 of NO ERROR 
NOP ; RETURN IF ERROR 
ERROR “ERROR # DEFINED BY TS SUBROUTINE 
JSR PC, a(SP)+ GO BACK CKS 
JMP 180s ;G0 TO 180$ IF ERROR WAS FOUND 





iP SAT: M2 UR Bdhdie mtr 
SEP 9 ET HEADER AND DATA COMMAND 

Rov, seul fras3 + TEND Reere ABLE 

HOvB are 

MOVE 


JSR PC ad GO WRITE REGISTERS VIA PUT SUB 


== OO 
bt eee 


NBS 
Be 

B 

a 





Oe = be Bo b= Se eb Re pe be ee 





BR go$ G0 TO abs. IF NO 
1 ERROR ERO DEFINED B gy Put Pur. SUB 
000137 017274 a IMP i80$ ;G0 TO i IF 
;WAIT FOR WRITE COMMAND TO COMPLETE AND READ 
S24 17044 004737 037622 ISR PC, » LINOUT FOR R_COMMAND TO COMPLETE 
oS fn Gan Be SEB' 500 To epee 
NED SUB 
01 Foes Abate 017274 GRpoR 180$  ;GO TO ie oF perAN Dee FouND 
VERIFY RESULTS OF WRITE COMMA 
aie 040006 ISR P CERI G0 CHECK of PRIMERY ERRORS 
¢ i ~ ERROR 
1 000240 NOP eT igre te PRR 
1 ERROR ERROR # DEFT BY PR ERR SUBROUTINE 
171 7 ISR PC, a(SP)+ 
171 137 017274 i IMP 180$ ;GO TO 160$ IF ERROR WAS FOUND 
es 052312 P PC, DTASTS ;G0 VERIFY OF DATA TRANSFER 
iis Rea BR il ett IF NO ERROR 
ene 1711 ren ERROR sacrum lene Ie txnon BY DTASTS SUBROUTINE 
174 SON? 36 ISR PC, a(SP)+ GO BACK Ai 
174 137 017274 Sea IMP 1 TO 1 fas FOUND 
71 O40640 " ‘JSR PC, SECERR ;GO CHECK FOR SE 
iis BR 1205 GO 19. I F eg ERROR RS 
171% BRROR i BEROR ® DEFINED BY SECERR SUBROUTINE 
171 ISR PC, 3(SP)+ GO BACK FOR NORE tRBoR CHECKS 
17142 000137 017274 JMP 180s ;GO TO 180$ IF ERROR WAS FOUND 
17146 1208: 
WRITE CHECK HE TA FOR SECTORS WR 
01714% 012737 000053 001376 OS xis pacei0 5 HEADERS & DATA COMMAND 
17154 004737 037262 JSR GO WRI rae VIA PUT SUB 
171 Soo4Os BR ;G0 TO 130$ IF 
171 104000 eo DEFI Fat er SUB 
S265 017166 000137 017274 IMP 180$ ;GO TO ine IF ERROR WAS FOUND 
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130$: 
;WAIT FOR WRITE CK TO COMPLETE AND 


MOUT er IT " WR TO FINISH 
Ce gE 


180$ ;G0 TO r F FOUND 


Se 


140$: 


NERY 16 Si OE RL em 


TO 1 F NO ERROR 
we mer ier Bok 
ERROR BY PRIERR SUBROUTINE 
ISR PC .g(SP)+ en cree 8 A 
io IMP 1 TO 1 WAS FOUND 
" ‘JSR PC DTASTS 7 ;G0 VERIFY OF DATA TRANSFER 
BR 1 F NO ERROR 
INED BY OTASTS INE 
Wo, re 
‘a JMP 180$ 60°10 1608 IF ERROR HAS FOUND 
" ‘JSR PC, SECERR ;GO CHECK FOR SE 
De fa rele 
ERROR : BY SECERR SUBROUTINE 
SR PC .g(SP)4 : GO FOR 
IMP 1 ;G0 TO 160$ I WAS FOUND 
170$: 
180$: 
5; RRRRSEEEEEASEREE SERRE EEE HEXSRERESE 
TEST 16 FORMAT W/ MID TRANSFER SEEK 
1 y eemaagga SEESRSSARERAESERSERERRESERSEERREEERRERRREREELEA EE 
* SCOPE cau 
be ntti SI 
MOV SSTACK, SP NITIALL ACK POINTER 
NOV TSTQUE,R FcR ) ING TESTED 
= 
MOV ero ts (Ru) = V1 IN APT MAIL BOX 
PARANE TERS SEP DATA BUFFER 
HOV O37 RRO RMDAO iSThaT AT Las T LAST TRACK & SECTOR 
MOV Alby »#2>41>, rewco: Oe bunt Tor 2 SECTORS 
aes a 
MOV 8ZEROS THPO mare ae PATTERN 
MOV 81, STHP1 


SEQ O111 





ArAt 


SEEN ECE Ee Es 


T 
t 


pe 


Ce a ee ee b= pe ee 


Be RASsSeeoadeee GARSZRR BR 


a 
fu 


a 
~ 


Tne BERENS RMRES 


ae 
RRERR 


a Gee 


8 
q 


oan Gas 


SS leenent =1=) 








RMOS FUNCTIONAL TEST, PART 2 eerie 30( 1046) Bn a 15:01 PAGE 110 SEQ 0112 
1 14:07 T16 TRANSFER SEEK 


FORMAT W/ MID 


20s JSR PC, GENBUF ;GO GENERATE DATA BUFFER 


;PREPARE DEVICE FOR_DATA TRANSFER 


ISR . DEVICE FOR TEST : 
. WORD Ea 35 ;TASK DESCRIPT . 
BR 30S GO TO 30S IF NO ERROR 
NOP ; RETURN IF ERROR 
ERROR ; é INED TPRP SUBROUTINE 
ate IMP 180$ ;60 To 1 ERROR WAS FOUND 
SETUP PARAMETERS AND TO GET 
corse ‘STP PRRPETENS 9, BERTE, FX 1? OLE CUE cc 
nate son thes ‘WRITE REGISTER INDEX TABLE 
MOVB eC, ( + 
nov : PC ei GO WRITE REGISTERS VIA PUT SUB 
40$ G0 T F NO 
Re 0 05 IP Et canon 
ERROR “ERROR DEFINED BY PUT SUB 
and IMP 180$ § ;GO TO 180$ IF ERROR WAS FOUND 
;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO SOPLETE 
PC, GETSTS SETUP FOR STATUS 
JSR PC; TIMOUT WAIT FOR SEEK TO COMPLETE 
:GO READ STATUS 
i Pc GET pia 80 READ REGISTERS VIA GET SUB 
ra IF ERROR 
HeROR ERROR DEFINED BY GET SUB 
oe IMP 180$ G0 TO 1808" IF ERROR HAS FOUND 
isomette TR RES CeKSTS: a GO VERIFY OPERATION 
a Na 
RETURN FE IE BY SEKSTS SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
ads ;GO TO 160$ IF ERROR WAS FOUND 


COMMAND 
;LOAD WRITE HEADER AND DATA 
sEXTEND REGISTER INDEX TABLE 


RMO3 FUNCTIONAL TEST, PART 2 MACYI1 30(1046) 29-JUL-77 15:01 PAGE 111 SEQ 0113 
14:07 TRANSFER SEEK 









29-JUL-77 «mie FORMAT W/ MID 
eS eae, Ore Pi on 
* ieiGab 020050 wos, P| MS 10 TO 1805 TF ERROR HAS FOUND 
3 ;WAIT FOR WRITE TO COMPLETE AND on STATUS 
£ 004737 JSR ,TI T FOR COMMAND TO COMPLETE 
BS Hires} ange 8701 BR Gia" coo oi POR Beata V8 r 38 
ED aie do01 3? oz00s0 A ie 180s ;G0 TO is "f FRPOR Deere. gY "ot 
536 ; VERIFY RESULTS OF WRITE COND CHECK FOR PRINGRY 
Be fie age oom tes ob HET eo 
be fifess ieee GE nc acces BS Bit Por ale Eomik eRe TE 
i 000137 20050 ie JMP 180$ ;G0 TO 1680S IF ERROR WAS FOUND 
it Tees 052312 ; ISR PC DTASTS GO VERIFY Pate OF DATA TRANSFER 
1 p0024C NOP Ba ee 
on Te" pggcsene EOS FE RE cn 
i 004737 C4040 1108: sR «PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
10 177 BR 120$ GO TO 120$ IF NO ERROR 
a {Ft send ERROR ‘Bey Dette by SECERR SUBROUTINE 
13. 017714 0047 3 JSR PC, a(SP)+ 60 BACK CHE 
i 17716 137 o200S0 ae, IMP 180$ ‘ ;GO TO 160$ IF ERROR WAS FOUND 
1g : 
F gxzres eran songs coxare RITE I MOR 8 Be FO cine ASS Is ore conve 
Be Be ET ab 
S423 01 104000 ERROR : ERROR OLE NED BY PUT SUB 
ES aa 000137 o200s0 leg JMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 
;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 
1 037622 JSR PC,T sWAIT FOR WRITE CHECK TO FINISH 
Fa GFT coro fg PREM 
1 Ol NOP 
a 6 Ips 020050 ‘a 180$  ;GO TO ibe IF FRO DEFINED a Gry, Sino 
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DZRMOA.P11 29-JUL-77 14:07 T16 FORMAT W/ MID TRANSFER SEEK 


017770 140$: 


; VERIFY THE RESULTS OF WRITE CHECK OPERATION 
PC, PRIERR ;G0 CHECK FOR Paery 


bp 
SRR 


ISR ERRORS 
BR iss 9. F NO ERROR 
INED BY PRIERR INE 
PE acne Bt Pn OSI EO 
a, Fl 180$ G0 TO 180$ IF ERROR WAS FOUND 
* ‘JSR PC, DTASTS GO VERIFY OF DATA TRANSFER 
BR 160$ . 1 F NO ERROR 
NOROR Ea OCETNE TASTS TINE 
ISR PC, a(SP)+ GO BACK pr Greek 
aia IMP 180$ G0 TO 1 ERROR WAS FOUND 
x CERR GO CHECK FOR SE 
ge tht RET 
ERROR RETURN ERE TE ERROR BY SECERR SUBROUTINE 
ISR PC, a(SP)+ isn cre 8 FOR MORE ERROR CHECKS 
rea IMP 180s G0 TO 180$ IF ERROR WAS FOUND 
180: 





$ eT RAT W IMPLIED See 
} | HeEMAMEAMEaREaCOnEGiEOASOEEEREEEEOMEROEEEOEEEE EEE 
900004 SCOPE ;SCOPE CALL 
1 1100 NOV sSTACK NTT OF 2E STACK POINTER 
15708 bolere NOV TbuS ADORE Ss 
1 OOM MOV TST eerste R *(R1) = DEVICE BEING TESTED 
1 000017 001226 tte MOV #17, SFECIN SET TEST NUMBER IN APT MAIL BOX 





;SETUP PARAMETERS FOR GENERATING DATA BUFFER 


sane puntata ~~ yshatmnentnontsmceco 









3 TON Ol atid NOV 00. ATOAD HfnaaK = sec Ector = : 
75 1 1 001430 MOV aFATI6 BIT “FORMA 
oo FSotse Bt rags NOV Bctos Shoes. 342)41, rruch; jboro cour FOR 2. SECTORS 
ie five Bits mle RY Aa Hie RE Bae ae Prem 
1 000001 001176 MOV 
mal 036114 ann JSR PC; ;GO GENERATE DATA BUFFER 
"1 ct : 


{PREPARE OSVICE FOR_DATA TRANSFER 


162 004737 033274 PC, TSTPRP “PREPARE DEVICE FOR TEST 
1 130 .WORD 154130 ;TASK DESCRIPTOR 

1 BR 30s 60 TO IF NO ERROR 

1 NOP RETURN HERE IF 

174 104000 ERROR ERROR # BEEINED” BY TSTPRP SUBROUTINE 





Co jest, PART 2 weevil ate tetten J03., PAGE 113 





sat IMP 180 GO TO 180$ IF ERROR WAS FOUND 
;SETUP PARANE CUTE SEEK TO GET ORIVE OFF CYLINDER 
020650 ROOD, [208 ‘SAVE INDER ADDRESS 
001432 ROY #822. SEEK TO LAST CYLINDER 
001376 MOV race RMCS10 “CHANGE COMMAND TO SEEK 
MOV Tnx Re ‘WRITE REGISTER INDEX TABLE 
nove ee, (hes 
(Re)+ 
HOVE 1, (R2)+ 
(Re)+ 
JSR PC GO WRITE REGISTERS VIA PUT SUB 
BR 40$ G0 TO vis IF NO 
NOP RETURN E IF ERROR ERROR 
vec, TE sao ;co 10 0SNTF Bcd eo 


;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
SR PC,GETSTS ;SETUP_ FOR STATUS 
JSR PC, TIMOUT ;WAIT FOR SEEK TO COMPLETE 


—_= 


;G0 READ SEEK STATUS 
J PC, GET GO_READ REGISTERS VIA GET SUB 


SR 

BR 60$ ;00 TO GOS IF NO ERROR 

NOP ; RETURN 

ERROR TReD BY Ger SUB 
IMP 180$ :G0 T0 18 


VERIFY THE RESULTS OF THE SEEK COMMAND 
ISR PC. SEKSTS GO VERIFY RESULTS OF SEEK OPERATION 
BR 70$ Go T F NO ERROR 
ERROR + ERROR ae iy BY SEKSTS SUBROUTINE 
JSR PC, 9(SP)+ :GO Brick F CHECKS 
IMP 180$ TO 160$ IF ERROR WAS FOUND 


HEADER AND DATA 


; 
i. 


COMMAND 

;RESTORE DISK ADDRESS 

;LOAD WRITE HEADER AND DATA 
Re EXTEND REGISTER INDEX TABLE 
+ 


Es 
Zo; 
a 

=) 


=~ 





Pages 





— 
+! 





¢ 





- 
a’ 
- 





> ———- eco 
SERRReRnS 
7 
BS 
ae ott 
ll 
+8 
+24 
5 
a 
w 
: 
s 
D 
S 
= 


8 
§ 


020646 JMP 180$ ;60 TO 180s IF ERROR WAS FOUND 





SEQ 0115 
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Sos Wein Gel nk 


mh Gea Ges 


037622 
037012 


020646 


001376 
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11? SEQ 0116 


FORMAT W/ IMPLIED 


;WAIT FOR WRITE TO COMPLETE AND ren Siar STA 
13 Pe. cet READ REGIST FOR VIA GET S58 = 
| 60 TO Babe" 
i clan INED Dav eT SUB 
IMP 180$  ;GO TO 180 IF a a 
90S: et 
;VERIFY RESULTS OF WRITE COMMAND 
Regt PC, PRIERR ;GO CHECK FOR PRIMARY 
BR 100s -GO TO 100$ IF NO ERROR 
BRROR SOO ENN ee AED BY PRIERR SUBROUTINE 
ISR PC, 3(SP)+ GO BACK MERE tRROa CHECKS 
vata IMP 180s ;G0 TO 160$ IF ERROR WAS FOUND 
" ‘JSR PC, DTASTS ;GO VERIFY OF DATA TRANSFER 
BR 110s -GO TO 110$ IF NO ERROR 
ERROR RETURN feRE IE BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ Poy BACK FOR CHECKS 
line IMP Os«LSOS ;G0 TO 160$ IF ERROR WAS FOUND 
a. PC, SECERR G0 CHECK F Bios igae iF NO Em 
BR 1205 0s IF NO ERROR 
HRROR ; perian Fene TE CERR_SUBROUT 
BRR PC, a(SP)+ 60 ERO ruc 30 ” 
coon JMP 180$ G0 TO eos ter RK Fas FOUND 


;WRITE CHECK HEADER AND DATA FOR SECTORS 
MOV 10 READ HEADER & DATA COMMAND 


SWCH! GO, 
ISR PC, PUT 260 WRITE REGISTERS VIA PUT SUB 
BR 130$  ;GO TO Ba IF NO_ ERROR 
NOP TURN 
ERROR Reine Vener ay cur PUT SUB 
rane IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 
;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 
J PC,T WAIT FOR WR TE CHECK TO FINISH 
PC’ GET -GO READ’ REGIS VIA GET SUB 
140$°  ;G0 TO 140s IF NO ERROR 
RETURN HERE IF ERROR 
ERROR “ERROR DEFINED BY GET SUB 
IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 


140$: 


VERIFY THE RESULTS OF WRITE CHECK OPERATION 
ISR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
150s -GO TO 1SO$ IF NO ERROR 
;RETURN HERE IF ERROR 





R03 FUNCTIONAL TEST, PART 2 mACY 11 30(1046) 29-JUL-77 og p20 PAGE 115 SEQ 0117 


a3 
wi 
i 





29-JUL-77 14:07 Ti? FORMAT W/ IMPLIED 
5602 ERROR ERROR # DEFINED BY PRIERR SUBROUTINE 
5604 JSR a(SP)+ GO BACK FOR CHECKS 
etfe cas INP 180S ;G0 TO 160$ IF ERROR WAS FOUND 
" ‘JSR C,DTASTS ;G0 VERIFY et OF DATA TRANSFER 
B07 5 BR ‘eos F NO ERROR 
p03 516 104000 ERROR Book # Rue TASTS SUBROUTINE 
1 736 JSR PC, a(SP)+ 
i 1 nan IMP Feds ving 9 TO 1 
1 ° CERR CK FOR 
cit ee Bate nt ve TT Ee 
5 3 RROR INED BY INE 
Beis Bshes8 Abutse BROR pc, a(SP)4 Back ‘e reo BY, SEER aeout 
l B42 000137 + IMP 180s G0 TO 160$ IF ERROR WAS FOUND 
180: 
SEE “oo 
190$:  .WORD TEMPORARY STORAGE 





a ES RMAT EReH SECT 9G HEHE HE HE HE HH HE SE HE EE HS HE HH EE 


t ATEST 20 T EACH SECTOR ADDRESS 
jseseosennnenunnaecnensnsnasecesoneaneses EPEBEERURLHE REEL XKEDAERK KEKE 
rea ce STMT OF TEST oy pomnren 
i 901100 ey seraes Aa * INITIALIZE Stack POI 
13oL 1446 MOV Terie, 8 :ROSUNI = DEVE Bic TESTED 
ot 000020 001226 i MOV ty : SET TE IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1 001432 MOV #0, RMDCO i CYLINDER 20 
rl 1404 MOV = SECTOR = 0 
1 i 1430 15S: MOV 16 0 He, IT FORMAT 
1 1 1409 MOV 8<¢C<24256.>+1>, RMWCO ie + 
1 1 1 MOV ScUF ONE RMBAO : DATA 
1 boo06 1376 MOV aid, RMCS10 “WRITE HEADER AND DATA 
1 Lad 001174 HOV aRrDAD, STMPO SUSE SECTOR FOR DATA PATTERN 
RS resets cot JSR PA? Be NBUF GO GENERATE DATA BUFFER 
PREPARE DEVICE FOR DATA TRANSFER 
onN7 37 033274 JSR Palas resx =i DEVICE FOR TEST 
000404 BR ; -GO TO 30S IF NO ERROR 
srt E waar ea BY TSTPRP SUBROUTINE 
000137 021376 IMP 190$ GO TO 190$ IF ERROR WAS FOUND 











FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 116 SEQ 0118 
29-JUL-77 14:07" Teo FORMAT EACH SECTOR ADDRESS 


;SETUP AND EXECUTE WRITE HEADER AND DA 


Swe” ETE RENE a 


MOVE  SRMDC, (R2)+ 
ne eek te 
* (Ro)+ 

Sires’ (3 
a Be 
J GO WRITE REGISTERS VIA PUT SUB 
BR eos “ ;GO TO obs tf lah Here crane 
NOROR hed BY PUT SUB 


IMP 190 eo To 180? Bese ind Powe 


;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC,GETSTS 


sHAIT FOR WRITE COMPIND TO COMPLETE AND READ STATUS 
037622 PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
037012 JSR PC, GET -GO_READ'REGISTERS VIA GET SUB 


nNores 


TRED BY Ger SUB 
021376 IMP 190$  ;G0 TO ise TF ERROR Was FOUND 


040006 VERIFY FERULTS BF poe :00 CHECK FOR PRIMARY ERRORS 
OOS IF NO ERROR 


ee 


004737 
737 
737 
Be 
a 
137 021376 IMP 190 ;G0 TO 190S IF ERROR WAS FOUND 
a 
ae 





+ 
ee or a ar 


- 
o 


B 
5 


11 
1138 
a 
it 
; i 052312 " ‘JSR PC, DTASTS :G0 VERIFY TS OF DATA TRANSFER 
i BR 11S o 110$ IF NO ERROR 
1144 NOP pevumn fee Te ERROR 
i ERROR ERROR # DEFINED BY DTASTS SUBROUTINE 
1 JSR PC, 3(SP)+ in BACK FOR CHECKS 
il 021376 ee IMP 190$ ;GO TO 190$ IF ERROR WAS FOUND 
; iC: 040640 * ‘JSR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
1 BR 1205 -GO TO 120S IF NO ERROR 
f ERROR hs ‘aeanied Ero Phat eFveD ers BY SECERR SUBROUTINE 
il 021376 IMP 190s on — ee ik IF ERROR nas FOUND 
ll 120$: 
READ HEADER AND para FOR SECTOR JUST WRITTEN 
176 012737 000073 001376 MOV #RH! GO, RMCS10 READ HEADER & DATA COMMAND 
204 012737 103600 001402 MOV SUF THO RMBAO *CHANGE BUS ADDRESS 
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5714 Oe2l2ei2° 004737 037262 
$715 Oelel 


$718 OGeleeY 000137 021376 
021230 


oe 


es PS bs be be ee 


hit 


+= += + =«¢ «¢ 
SNske BBSESERR ROGRESES Ri 
RDF 





. 
= 


00013? 20714 


ee ee ot ed 


MACY11 30(1046) 29-JUL-77 15:01 PAGE 117 
Te0 ADDRESS 


FORMAT EACH SECTOR 


JSR —s- PC, PUT 
BR 130 
IMP «1908 


130$: 


360 TO 1s 


;GO0 WRITE REGISTERS VIA PUT SUB 


IF NO 
aPut sus 


00 To 1400°GF CARO Iie FORO 


;WAIT FOR READ TO COMPLETE AND GET STATUS 


JSR PC, TIMOUT 


;G0 TO 1 


peso Re T FOR READ TO COMPLETE 
TERS VIA GET SUB 


co 10 1408 IF R NO 


Se RRS Soto 


1 ex fo ag 
F NO ERROR 


ona 
INED BY PRIERR SUBROUTINE 


GO'TO 1908 iP ERROR HAS FOUND 


;60 VERIFY RESULTS OF DATA TRANSFER 
;GO TO 160$ IF NO ERROR 


BRA BEF EB ER Brasts SUBROUTINE 


[Slab icaih sde 


ae. 


“OF ARI RIVE BEER 


T NEXT SECTOR 


;ADVANCE SECTOR COUNT 
; DONE ALL SECTORS?? 


60 60 NEXT SECTOR 


JSR PC’ GET 
BR 140s 
NOP 
Feo 190$ 

140S: 

;VERIFY THE RESULTS OF READ OPERATI 
ISR PC. PRIERR 
BR isds 
NOP 
JSR PC, a(SP)+ 
IMP Soe 

1508: ick «PC, DTASTS 
BR 16S 
JSR PC, a(SP)+ 
JMP 190s 

1e0S: gk PC, SECERR 
BR 170 
NOP 
ee (SP)+ 
ie 86 S08 

170S: 

VERIFY DATA 
JSR PC, CMPBUF 
.WORD BUFONE 
‘WORD  BUFTHO 
BR 180$ 
NOP 
ERROR 
IMP 190$ 

1680S: 

s INCREMENT ADDRESS AND FORMA 
ADD #1, RMDAO 
CMPB 1. , RMDAO 
BLO 190$ 
IMP ss 

190$: 


S 
WAS FOUND 


SEQ 0119 
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DZRMOA.P11  29-JUL-77 14:07 Tel FORMAT EACH TRACK ADORESS 
5 5 Seca EE EE RHEEKEKLERUHEE 
tKTEST 21 FORMAT EACH TRACK ADDRESS 
ss PRLCHRELRRREEE 
rae tét21: 
3 
: T 
021402 001100 MOV SSTACK, SP INITIALIZE STACK POINTER 
3 ratte: ates Yeu Ro ar Tea ah NG TESTED 
4 = 
eaey reeey 001226 MOV Bi tN ey Test IN ne MAIL BOX 
1424 10S: 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
5763 21424 o00000 001432 MOV 80, RMDCO ; CYLINDER = 0 Le 
258d St ntcced rated 1S: 1 0 716 Tremere 
578] 021446 177376 001400 MOV #(4C(24255.)+1>,RMWCO 32 + 
5787 thay 001402 MOV RMBAO :DATA BUEFER_ ADDRESS 
1 001376 MOV hH 10 * WRITE AND DATA 
1470 001404 001174 MOV STMPO “USE TRACK FOR DATA PATTERN 
1476 090001 001176 a, 1 
1 O21S04 114 JSR : GO GENERATE DATA BUFFER 
021510 20S: 
:PREPARE DEVICE FOR DATA TRANSFER 
at) _ Te San TASK DEkCRIPTON em EST 
2538 stele BR 134 2 -GO TO 30S IF NO ERROR 
2738 wa NOP ; RETURN HERE IF 
1 ERROR ERROR 8 DEFINED BY TSTPRP SUBROUTINE 
5 022122 ae IMP 190$ G0 TO 190$ IF ERROR WAS FOUND 





;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 


laces 8 SERe 
Si GIS Gi SN Soe 







ar 
1 001376 MOV WH 10 WR ADER TA 
1 rites MOV sPUT INK Rs WRITE EOE RT X TABLE 
1 MOVB , (Re)+ 
1 000034 MOVB *(RO)+ 
Ai mB 
10 Ge1Sbe ove en | )+ 
S811 021566 000000 MOVB = SRMCS1, (R2)+ 
ETH rite Bares ye BE PL (Res WRITE STERS VIA PUT SUB 
et t aR BSS G0 To Bie IF HO ERROR 
5815 21604 NOP ;RETURN HERE IF ERROR fot 
el Ne ib 022122 BRBOR 190$  ;GO TO aie te PRR AR Bad” FOUND 
p18 021614 80S: 
5820 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
ees 021614 036726 JSR PC, GETSTS 
;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
5824 021620 037622 JSR PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
S825 Oelbe4 T ;GO READ’ REGISTERS VIA GET SUB 


037012 JSR PC, GE 





v1 
— 
“2 
4 
— 
= 


: 





= fs pe 


4 


POOOOOS Ie 


tf, 17,17 


AQOOCG 
++ 54 


=[o)= 
4545454 


SPRUNG INGRORROOOES GRRE 


NNN 
Bee bat ee 
ocr 

: 


gS 


z 


Bee rat bee me Pt ee fee Pee bene be Pmt Jace Ben Bec fen hes fet freee Ps mt Bee 
4 


= 
J 


8 


le oe 


aaa 


= 
a 


PERERA 


8o 


§ 


RRRRERR 
Seaea 


EEERPRRRLO Ais Sida Lilae tes Ree ee asincianpigi aru 


a 


os 


Me ee 


4 
8 
4 


n 


C10 
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I oe 


tes 190$ co 70 sate eneD er, 


; VERIFY RESULTS OF WRITE COMMAND 
PC, PRIERR 


JSR ;G0 CHECK FOR PRIMARY ERRORS 
BR 7. 1 005 IF NO ERROR 
ERROR FEAR a ate PRIERR SUBROUTINE 
ISR Pca (SP)+ GO BACK Ai 
es INP 1 TO 1 WAS FOUND 
" ‘JSR PC,DTASTS ;G0 VERIFY | OF DATA TRANSFER 
BR il 1108 IF NO ERROR 
NOP 
ERROR ERR =e TASIS SUBROUTINE 
ISR PC, a(SP)+ :G0 MES 
oe JMP 190s ;G0 TO 1908 IF ERROR i WAS FOUND 
" ‘JSR PC, SECERR GO CHECK FOR SE 
BR 1208 GO TO ips ir M0 Ber eR 
BRROR ph SUBROUTINE 
JSR PC, a(SP)+ G0 BACK F NORE ERROR CHECKS 
JMP 190s G0 TO pot eos TP ERROR LAS FOUND 
1208: 
sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV #RH!GO.RMCS1 READ HEADER 8 DATA COMMAND 
me PC.PUT ° GO WRI Cetics VIA PUT SUB 
BR 130$  ;GO TO igs IF 
ERROR i Rene hed BY Eur BY PUT SUB 
ae JMP 190$ :GO TO 180S IF ERROR WAS FOUND 
;WAIT FOR READ TO COMPLETE AND GET STATUS 
ISR PC, , TIMOUT ;WAIT FOR READ TO COMPLETE 
BTA” sco vo 189 OEMS“ 
NED SUB 
ed BRROR 190$  ;GO TO ee “F Earn DEFT Br Ger 


PEATE TNE RESTS TERR ead CHECK FOR PR 
eae vevunn 1826 or isos IF HO ERROR 
$ 


PC, a(SP)+ ED Back FOR. Rep By PRCA ee 


ERROR 
JSR 
IMP 190 GO TO 190$ IF ERROR WAS FOUND 





rs ag pe eee PART 2 





= Oe DF GD BO 


WONWU CW 








Ga fae bet pen Pee pas Be pee 


pepe fete fester 
o0o0 


— 
8 


ISSR SRNES 


Ooooo000o 
Beas es Fee fet fo es ee 


al 


000004 
a 
ee 
Q 

Mee 


epirta 
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Tel FORMAT EACH 
150S: 

JSR PC, DTASTS GO VERIFY LTS OF DATA TRANSFER 

BR 160 itie"Ye Boh 0s IF NO ERROR 

; RETURN 

ERROR ps ER D INED BY DTASTS SUBROUTINE 
= te 1 a0 Back eon 10 aos IP WAS FOUND 

I ena a ea 

ERR REE 

ERROR Ha a 14 me SUBROUT INE 

ISR PC, a(SP3+ 60 CHECKS 
oats IMP 190 G0 TO 190$ IF ERROR WAS FOUND 
VERIFY DATA 

PC, CMPBUF ;00_ COMPARE WRITE, + BERD DATA BUFFERS 
pur IB TBRTING ADDOREeS OF READ BUFFER 

BR 180 GO TO 180S IF NO 

NOP : ERE IF ERROR 

ERROR : # DEFINED BY CMPBUF SUBROUTINE 
toa IMP 190 G0 TO 190S IF ERROR WAS FOUND 


; INCREMENT ADDRESS AND FORMAT NEXT TRACK 


IMP 1S$ G0 DO NEXT SECTOR 
190S: 
© REEKEEE RS RAGEG RASA AAG ERK ERA REAR AER LRRA EAA RERAEAHEE 
t LTEST ee FORMAT PRIME CYLINDERS 


METiieiiiitiiiittiiitiiiti titi iit iitttiitiiiitiriteriticgi ogy 


téT22: 


SCOPE ;SCOPE CALL 
NOP ipUanT OF Test 
HOV #STACK, SP NITIALIZE TACK POINTER 
MOV Sons RO Ry tevi NG TESTED 
ce MOV #22, STESTN SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
HOV 1, RMDCO CYLINDER = r 
15S: MOV Beate RNOFO eer eer 
MOV 8<¢C< 24256. >41>, RMWCO 
MOV SBUF ONE. RMBAO tr CBFFER B ADDRESS 
MOV WH 10 “WRITE HEADER AND DATA 
Hoy : 0, STHPO USE CYLINDER FOR DATA PATTERN 
JSR Pd: SE NBUF ;GO GENERATE DATA BUFFER 








E10 
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SEQ 0123 
sPREPARE DEVICE FOR DATA TRANSFER omni ten tat 
Tifeo {E413E"™ rns oeGERGPPO 
60 TO. 308 IF IF NO ERROR 
on as SVE tre amour 
a 190$ per ane Dats fr is WAS F' 
;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
MOV ahiH3G0 S10 ;WRITE HEADER AND DATA 
MOV SPUT Nk Re ;WRITE REGISTER INDEX TABLE 
HOVE aren i} 
MOVB » (Re)+ 
mye es ie 
(Ro)+ 
5956 MOVB 1, (Re)+ 
5997 HOVE R2)+ 
BE -GO WRITE REGISTERS VIA PUT SUB 
355 BR eos GO TO BOS IF NO ERROR 
eg? ARE OR : Der ined BY Pur SUB 
5%e2 022334 oon IMP 190$  ;GO TO 190$ IF ERROR WAS FOUND 
i ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
228 JSR PC, GETSTS 
WAIT FOR fRITE TO COMPLETE AND STATUS 
fe ie ue Tea ites TS, BGP 
pea BR G0 TO Sal: FRO 
NOP TURN HERE IF ERROR ~ 
a og, isos ,co 10 EF Bad ad fo 
; VERIFY SULTS OF OF WRITE COMMAND 
538 Oee366 RES ort TER ;GO CHECK FOR PRIMARY ERRORS 
BR 160s" *GO TO 100$ IF NO ERROR 
lee. : # DEFINED BY PRIERR INE 
a ea FE wears St RRR eT BP 
Oe ee JNP 190s ;G0 TO 190$ IF ERROR WAS FOUND 
f * ‘JSR PC, DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
BR 116s a GO T ' F NO ERROR 
é ERROR : BRROR 8 DEFINED BY DTASTS SUBROUTINE 
r= ISR PC, a(SP)+ GO BACK FOR S 
aa Sat IMP 190s ;G0 TO 190$ IF ERROR WAS FOUND 
2236 a PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
BR 1205 :GO0 TO 120$ IF NO ERROR 








F10 
peevil ‘aa aeky 7 aE :01 PAGE 122 
eS ta ae 


; READ 7 AND are. eae Just war . eon 
aR 130$  ;G0 TO igs ware ; ~ 
SUB 


IMP 190$ co 10 1nd A 


re ng, 9 SP + fo 


130$: 


;WAIT FOR READ TO COMPLETE AND GET STATUS 
JSR ;WAIT FOR READ TO COMPLETE 


PC, TI 
Tso co to 1468 IP Ro > 


FE" ise 0 10 AE Bad oo 


— Je ea CR ered CHECK FOR PRIMARY ERRORS 
TQ 1S0$ IF NO ERROR 


nh on Fe PPh sapere 
SR PC, a(SP)+ : Nehe taRca CHE! 
aa JMP 190 ;G0 TO 190$ IF ERROR WAS FOUND 
“JSR PC, DTASTS ;G0 VERIFY | OF DATA TRANSFER 
BR 160$ F NO ERROR 
: By pta TASTS INE 
GR oe accpye a cs Ts, grout 
oo IMP 190s G0 TO none ERIC IF ERROR WAS FOUND 
" ‘JSR PC, SECERR ;G0 CHECK FOR SE 
BR 1705 To. i708 IF Wo ERROR NO CRROR 5 
ERROR iP EROR # DEFINED BY SECERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR 
JMP 190s ;G0 TO 190$ IF ERROR WAS FOUND 
170$: 
; VERIFY DATA 
JSR 


SEQ 0124 





SELLS OEE 


a ee ee a ee 


RIEBRE 


CCC 
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Pil  29-JUL-77 14:07 Tze FORMAT PRIME CYLINDERS 
022620 000137 022644 IMP 190$ ;GO TO 190$ IF ERROR WAS FOUND 
022624 180S: 
; INCREMENT ADORESS AND FORMAT NEXT PRIME CYL 
02 2f 905337 001432 ASL Roce ; CYLINDER COUNT 
0226 30 001466 001432 CMP #6822. , RMDCO ;DONE ALL CYLINDERS?? 
bee nrdkig 022164 aun Fhe tegs ibd NEXT CYLINDER 

gs KELALAAASSEAARSASSSRSRASRESERAAAARRRARARSSSREEEEEEE REESE ELAR AEE 
‘TEST 23 FORMAT LAST SECTOR 
ae i RERESRERREREEVERE ER 
téT23: 

12706 901100 HOV «BS TACK tINITIALI STACK POINTER 

i So teae NOY SCTE R POT y a DEVICE BEING 

e = 

137 Spaces 001226 si MOV STO St, HY Teoh orn IN AB? BAIL BOX 

;PREPARE DEVICE FOR_DATA TRANSFER 
Onur? 033274 1B PC TeTPRP , DEVICE FOR TEST 
1 gl#ORD 158190 ;TASK DESCRIPT ‘ mpeg 
Gp JRETURN AERE SF ERROR 
‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
000137 023142 IMP 190$ ;GO TO 190$ IF ERROR WAS FOUND 


;SETUP PARAMETERS FOR READING LAST SECTOR 

#822. , RMDCO ;LAST CYLINDER 
; TRACK_= 4 SECTOR = 31. 
j16 OFT FORMAT 


16, RMOFO 
Hy career sl? »FEBICD ‘Bata BUFFER. ADORESS 





12737 MOV 
1 MOV 
bier MOV 
1 MOV 
1 MOV 8RH!GO, RMCS10 WRITE HEADER AND DATA 
012708 MOV SPUTINX, R2 ;WRITE REGISTER INDEX TABLE 
1 MOVB = SRMDA, (R2)+ 
112722 MOVE Brae 6) 
*(RO)+ 
{ieee nove tren) (he): 
023006 112722 MOVB = SRMCSI1, (Re)+ 
023012 112722 MOVB - #200, (Re) + 
023016 120S: 
READ HEADER AND DATA OF LAST SECTOR 
16 004737 037262 JSR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
3004 ofp 1305 360 TO 1908 TF MERE IF 
023026 104000 ERROR *E DEFINED BY PUT SUB 


Be he Be pe ee ee bt nF bb be ee em pe te Bb ae em ae bm ee be ft em bo bs he 


~SSeVERLON-ESSLFHESO=“SSBVRRAERHBBBVRRPSVOVsaricnsonw-oSS Ve 


PEPCK PKK COCK OPOO PN OPPPNPO KN POPPNPOSPPNPPKPSPOPSOOSKSK SSS K’ as 
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i 29-JUL-77 14:07 Te3 FORMAT LAST SECTOR 

023030 000137 023142 JMP 1390S ;G0 TO 190$ IF ERROR WAS FOUND 
023034 130$: 


eaten sSETUP INPUT REGISTER. BUEFER FOR READING STATUS 
|AIT FOR READ TO COMPLETE AND GET T STATUS 


ae BRP gee a. oR a 


BR 
ERROR I 
1408 JMP 190$ ;60 TO see 


; VERIFY THE nem ISS OF READ OPERATION 


ap gr Teg 1 Br fo UY Tl 
EPH Pes ete BUTE 


;G0 TO 190$ IF ERROR WAS FOUND 





004737 

apie 

soso 

1oi609 

Geass Hats er 
el ae rar eggcspoe 
oosra? 

ee 

004737 

soit 

any 


ite 150S: 
052312 J PC, DTASTS GO VERIFY OF DATA TRANSFER 

fei an 160 GoTo 1608 IF NO ERROR 
ate Hee i ROR Ae 
02311 ERROR ie # DEFINED BY SRT OR rASTS SUBROUT INE 
023114 JSR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
rae 023142 oe IMP 190$ oO" TO 190$ IF ERROR WAS FOUND 
RSI 040640 JSR PC, SECERR GO CHECK FOR SECONDARY 

1 BR 170$ GO 19 1 F NO ERROR 

1 NOP + RETURN F 

1 ERROR ERROR & DEFINED BY SECERR SUBROUTINE 

134 JSR PC, 3(SP)+ :G0 OR MORE CKS 

136 023142 IMP 190$ CO" TO 1 F ERROR WAS FOUND 
023142 1708: 
023142 190S: 


aa teat ae 





tkTE T 24 FORMAT W/ 
023142 bau tuneneneeneuanneeseneeOeOneeneaanaaeaa ae eeaeEaeEaeEY 
023142 o00004 : SCOPE 
53144 : START SF Lest 
14g 1 901190 MOV SSTACK, SP INITIALIZE STACK POINTER 
1 1 12 MOV *RO=UNI 
156 13701 001446 MOV TSTQUE, Ri ;(R1) = DEVICE BEING TESTED 
162 O01 000024 001226 MOV #24, STESTN SET TEST NUMBER IN APT MAIL BOX 
PREPARE DEVICE FOR DATA hi 
023170 004 033274 JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
023174 1541 .WORD 154130 ;TASK DESCRIPTOR 
0231 BR 30S pois 500 To_308 IF NO ERROR 
G23202 104000 ERROR . ‘ERROR # SEF INED B mT ISTPRP SUBROUTINE 





T10 
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DZRMDA.P11 29-JUL-77 14:07 T24 FORMAT W/ AOE ERROR 
61 000137 IMP 190$ GO TO 190$ IF ERROR WAS FOUND 
bigs eat 30S: 
ate ; ; SETUP PARAMETERS, FOR READING 2 SECTORS STARTING WITH LEST TOR 
16 15533 MOV #2037, ag : TRACK = y Ge ECTOR = 31. 
bib 16730 MOV SFMT 16, RMOFO 16 BIT FORMA 
£170 {573 AM SR 
617 12 MOV wRH GO RMCS10 *WRITE HEADER DATA 
bi 1 MOV #PUTINK, Re ‘WRITE REGISTER INDEX TABLE 
1 ll MOVB  - SRMDA, (R2)+ 
174 il MOVB eRMOC, (Re) + 
7B ti HOVE ae (Roy 
bl ile7ee MOVB RMA, (RE) + 
biz 115765 =i Nove sou (Re) 
18 ; 
1 125$: 
1 JSR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
Rip TSHR 00 TO dees cmon 
61 ERROR : NED BY PUT SUB 
ie iota 023440 ae IMP 190$  ;GO TO abe te Pern Bae FOUND 
61 " 
61 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
6131 036726 ISR PC, GETSTS 
ate WAIT FOR READ TO COMPLETE AND GET STATUS 
194 037622 ISR PC, TIMOUT ;WAIT FOR READ TO COMPLETE 
6195 037012 JSR PC’GET -GO READ’REGISTERS VIA GET SUB 
ab Re OR 100 101 EERE exo 
6198 ERROR “ERROR DEFINED BY GET SUB 
0198 023440 ied IMP 190$  ;GO TO 190$ IF ERROR WAS FOUND 
sVERIFY THE RESULTS OF READ OPERATION 
: — isa oO etek Oe Tee IF NO ERROR 
bo OS NOP ; RETURN 9 
DOOE ERROR j ERROR a DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR ERROR 
BODE 023440 i Pa 190 ;G0 TO 190$ IF ERROR WAS FOUND 
x. 052312 a ea PC, DTASTS GO VERIFY TS OF DATA TRANSFER 
BO 1 BR 160$ -GO TO 160$ IF NO ERROR 
D2 1 NOP RETURN HERE IF ERROR 
be | ERROR ERROR & DEF INED BY DTASTS SUBROUTINE 
B14 ISR PC, a(SP)+ ‘GO BACK FOR MORE ERROR CHECKS 
atta 023440 wet IMP 190s ;G0 TO 190$ IF ERROR WAS FOUND 
6217 040640 "JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
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SEQ 0128 


: 5 “3 4 
¢ i: z R af & $ « g 
+ let iH ks tT 
ce ff FR Setsi pel & = 3 
ee iE ee tise sae gle 
otOee Sint ins at cttw g@ 8 pte = as"5 
® spats : J hat, poise s 8 sh8s Sag mas 
: ist s oe = ¢g 2 es : 555 
, iis asi = ae + ef Sat 
‘ tg: 3 2 z SELARE 
ae aa ee a 
ee S 7 he; ES ss tte 
“a 
E asins q DOEREE SE calsole coobPEEEEEnacl 
: : 
& z 
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Mee eee eee eS Ny S 


29-JUL- 


8 
& 


1 





i Gea Gee 


28 
8 


ew oh 





024166 


al 
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FORMAT INVALID SECTOR ADDRESS 


IMP 190$ ;G0 TO 190$ IF ERROR WAS FOUND 


80S: 
; SETUP ey Recre errets FOR READING STATUS 


SWAT FOR WAIVE CRETE TO COMPLETE OO ED Se 


JSR PC, PC, LIROUT WAIT FOR COMMAND TO COMPLETE 
JSR a 00 off NO READ’ REGIS VIA GET SUB 
IF ERROR 
TERROR DEFINED BY GET SUB 
a JMP 190$  ;GO TO 190$ IF ERROR WAS FOUND 
VERIFY RESULTS OF WRITE COMMAND 
ISR PC, PRIERR GO CHECK FOR PRIMARY 
BR 100s -GO TO 100$ IF NO ERROR 
NOP ; RETURN IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
ISR PC, 3(SP)+ GO BACK FOR MORE 
ions IMP 190s 3G0 TO 190$ IF ERROR WAS FOUND 
"JSR PC, DTASTS ;G0 VERIFY OF DATA TRANSFER 
BR 110s F NO ERROR 
ERROR ERROR # DEFINE BY DTASTS SUBROUTINE 
ISR PC, a(SP)+ ER prick ROR CHECKS 
ioe IMP 190$ 360 TO 1 WAS FOUND 
“JSR PC, SECERR GO CHECK FOR SE 
BR 1205 -GO TO 1 Ae ERROR 
NOP : RETURN IF 
ERROR Ei # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
en JMP 190s ;GO TO 190$ IF ERROR WAS FOUND 
CLEAR “IAE” ERROR AND PREPARE DEVICE 
JSR 1 ocd CRPTOR DEVICE FOR TEST 
BR ;' 1258 T9 12S$ IF NO ERROR 
NOP ; RETURN F 
ERROR ERROR & Ber pre By TSTPRP SUBROUTINE 
on JMP 190 0 190$ IF ERROR WAS FOUND 
; READ AND DATA F CTOR JUST Waly 
“hoy at 60 Mec READ HEADER § DA 4 para COMMAND 
FB cs vo ug es 
ERROR BERR midi Dae PUT SUB 
on IMP 190 100 To 1408 eaten bak roine 
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ZRMDA - 
ZRMDA. Pl 29-JUL-77 14:07 FORMAT INVALID SECTOR ADDRESS 
6330 
6331 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
See 024036 004737 036726 JSR PC, GETSTS 
;WAIT FOR READ TO COMPLETE AND GET STATUS 
6335 004737 037622 JSR PC, TIMOUT “WAIT FOR READ TO COMPLETE 
bie 037012 ISR PC’ GET GO READ REGISTERS VIA GET SUB 
BR 140$  ;GO TO 140$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
104000 ERROR * ERROR DEFINED BY GET SUB 
000137 024166 ee JMP 1908  ;GO TO 190 IF WAS FOUND 
VERIFY THE RESULTS OF READ OPERATION 
24064 004737 040006 JSR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
54070 OOC4OS BR 150$ GO TO 150$ IF NO ERROR 
i NOP ; RETURN IF ERROR 
ERROR “ERROR # DEFINED BY PRIERR SUBROUTINE 
; 738 JSR PC, 3(SP)+ GO BACK FOR CKS 
t 137 024166 im IMP 190s :G0 TO 190$ I WAS FOLIND 
1 104 004737 052312 JSR PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
B41 18 BR, (lets ihe Pe TERS nT NO ERROR 
NOP ; RETURN F 
tte aga JSR PC, a(SP)+ ERE ee On ee 
bab Gees Bedi 39 024166 i JMP 190s ‘ CO" mi wie on WAS FOUND 
D358 040640 J CERR GO CHECK F 
«3 eae Boobs an ; FO Ts Oe TE NO ERROR 
b 366 1 sRETURN HERE IF 
1 ERROR “ERROR ® DEFINED BY SECERR SUBROUTINE 
1 SR PC, a(SP)+ GO BACK FOR CHECKS 
1 137 024166 IMP 190$ ;G0 TO 190$ IF ERROR WAS FOUND 
144 1708: 
144 180S: 
; INCREMENT ADDRESS FORMAT NEXT SECTOR 
144 062737 000001 001404 ADD #1 ADVANCE SECTOR COUNT 
636 1S2 022737 000037 001404 CMP #31. , RMDAO ‘DONE ALL SECTORS?? 
163 boos? te OtCde® + o6 be 
137 023502 1 GO DO NEXT SECTOR 
1 190S: 
ate a3 REGRESS GGG RARER RE RRR RRAR RHEE on 
*KTEST 26 FORMAT INVALID TRACK ADDRESS ~ 
166 5 ge gga rene ange aC ERI tueny Sohn cement Er ay 
166 000004 SCOPE ;SCOPE CALL 
1 NOP :START OF 
1 1 901 190 MOV #STACK, SP INITIALIZE STACK POINTER 
1 1276 MOV RO RO=UNIBUS Ss 
1 001446 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
Of bi2ra7 000026 001226 aba MOV #26, STESTN >:SET TEST NUMBER IN APT MAIL BOX 
c . 
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- RMO3 FUNCTIONAL TEST, PART 2 MACYII 301046) 
Pil 29-JUL-77 14:07 T26 FORMAT INVALID TRACK 
SETUP PARAMETERS Fi TING DATA BUFFER 
1 MOV 80 CYLINDER = 0 
1 MOV ee 00 * TRACK TOR = 0 
i 1 _ HOV act ‘ ar RMWCO Fe i 
me See ite 
OR 
Nee 1 Hoy #1,STP 
114 “= JSR PC, GENBUF GO GENERATE DATA BUFFER 
- ;PREPARE DEVICE TA TRANSFER 
004737 033274 RY per 1eapRP “PREPARE DEVICE FOR TEST 
54130 . WORD isis; TASK DESCRIPTOR 
G0 TO 30S IF NO ERROR 
NOP RETURN HERE IF 
12 104000 ERROR ERROR ® DEFINED BY TSTPRP SUBROUTINE 
beu314 024714 is IMP 190 G0 TO 190S IF ERROR WAS FOUND 











M10 
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ss 





; SETUP EXECUTE R AND DATA coe 
001376 By aC, FeSO TE HEADER AND DATA 
8PUTINK WRITE REGISTER INDEX TABLE 


nN petal" ;GO WRITE REGISTERS VIA PUT SUB 


J 
BR GO TO BOS IF NO ERROR 
NOP ; RETURN RETURN HERE IF ERROR 
ERROR NED BY PUT SUB 
024714 a IMP 190$  ;GO TO 1456 TE IF ERROR WAS FOUND 
sSETUP I REGIS ER FOR READING STOTUS 
036726 Mie eat 


;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 10 ¢ rE 
wis fe PT co neg tellsttie O'S 
00 10 Hat 


BRROR ERROR DEFINED | er cer GET. SUB 
024714 ae IMP 1908  ;GO TO 1858 TF IF ERROR WAS FOUND 
VERIFY RESULTS OF WRITE COMMAND 
040906 JSR PC, PRIERR G0 CHECK FOR PRIMARY ERRORS 
BR 100s -GO TO 100$ IF NO ERROR 


ERROR ; 
JSR PC, a(SP)+ ;GO0 BACK FOR MORE ERROR CHECKS 


SEQ 0131 





EEE vg ea vas ees ses eEE PTET gEL 





or 
— 





024714 
0S2312 


024714 
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001376 
001402 





N10 
15: 


MACYI11 30(1046) 29-JUL-77 15:01 PAGE 130 
T26 FORMAT INVALID TRACK ADDRESS 
aot IMP 190 G0 TO 190S IF ERROR WAS FOUND 

Ba TDRTASTS «= 560. VERIFY RE Os FO ERROR 

NOP ;RETURN HERE IF ERROR 

FR” oc acspre BD ick Pon NeRe Eamon Gece 

- IMP «190 ete One 

— ISR PC SECERR ;GO CHECK FOR SECONDARY 

Mon guar ie ieee neil 
nate tee | TSg°* 300 BACK E818 eos te 1 ERROR as OUND 
;CLEAR “18e" ERROR AND PREPARE DEV 

foro 164130" Preex vekcniPe DEVICE FOR TEST 

= sen ru Bae Te Eo" NO ERROR 

ce, 1808 AF RSs FER 


MOV SUF THO. RMBAD BUS ADDRESS on 
gee Saget co 10 1563 im nae Baada Tes 
NOP IF ERROR 
ERROR BEROR INED BY PUT SUB 
ae IMP 190$ 100 To 162i Gian Lee Fore 
;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC,GETSTS 


;WAIT FOR READ TO COMPLETE AND GET STATUS 
JSR ;WAIT FOR READ TO COMPLETE 


JSR PC’ GET . "REGISTERS VIA GET SUB 
BR 140$° ~—;GO TO 146s ff Ro 
NOP ; RETURN F ERROR 


ERROR NED BY GET SUB 
IMP 190$ ‘co 10 1aRiOE REINER OG, 


140S: 
a y PSA PRIERR OPER CHECK FOR PRIMARY ERRORS 


SEQ 0132 


RRR Eee PR tate som URNSOR HOU MOn TUR kee tee Shere Beane ROE a3 


Ui 

9 

"3 
ml 





ooccd4 
ee 
013737 
o1e737 
012737 
O1737 
012737 
012737 
004737 
004737 
boosts 
000240 
000137 


0S2312 


024714 


888 
Foe 


cee 


ae 


RE 
= 
== 


o2es442 


eal 


8 
s 
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MACY11 30( 1046) Pil PAGE 131 
PS BUR AD a so 019 


JSR PC, DTASTS ;G0 VERIFY RESUL OF DATA TRAN TRANSFER 
BR 1606S a, F NO 
NOP ‘Bega s Dee 
FRROR oc asp Oro FoR 
ta INP 190s Poh Hie CR EES eo 
CERR ;60 CHECK F FOR SE 
ae Tag ob fo 1708 uF WO ERROR 
NOP RETURN ye ee IF 
ERROR yale IED BY BY SE SUBROUT INE 
JSR PC, a(SP)+ Pay FOR MORE 
IMP 190$ G0 TO 190$ IF ERROR WAS FOUND 


T 
' BONEN RR ReKSee” 
BLO 190$ ;YES!! 
JMP 1S$ ;GO DO NEXT TRACK 


1908: 

3 3E-SESE ESE SEE SE HE 36 9E S69E -3  9 9 9 9 9 9 9 0 9 
> KTEST 27 FORMAT INVALID CYLINDER ADDRESS 

} TT maces oe RTO Seale aR ERT ers pas te HES 


SCOPE 
scone Ath ei Ela room 
NOY SBaSE SINTTLALIZE BIRK. 
MOV TSTQUE,R1 3(R1) = DEVICE BEING TESTED 
‘a MOV #27, STESTN > SET NUMBER IN APT MAIL BOX 
SETUP PARAMETERS FOR GENERATING DATA 
MOV a i ” Phar AT gh AST cy CYLINDER ei 
MOV i FRAeK © 
1S$: MOV ern af AT1G HOF OD ‘ $16, BIT FORMAT 
Nov Bctecshees = ibate Bueren Aooness 
MOV WH 10 sMRETE DATA 
CYLINDER FOR DATA PATTERN 
MOV $1, STMP1 
al JSR PC; GENBUF i GENERATE DATA BUFFER 


;PREPARE DEVICE FOR DATA TRANSFER 
oan PC, TSTPRP ;PREPARE DEVICE FOR TEST 


TASK DESCRIPTOR 
WORD 454130 80. TO. 30S IF NO ERROR 


Soe 190 a BE OY fF EOE 








DZRMDA TIONAL TEST, PART 2 Y11 30(1046) 29-JUL-77 15:01 PAGE 132 SEQ 
DZRNDA. Soe 14:07" T PoanAT INVALID CYLINDER ADDRESS sant 
6554 ;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
6555 1 001376 MOV 8hH!'GO, RMCS10 sWRITE HEADER AND DATA 
fe 1 MOV sPUT Ni Fe WRITE REGISTER INDEX TABLE 
t nove erae (ist 
cea ii NOVe | Sarme’ CRs 
ii MOVe SRNR’ (RODS 
il MOVE  aRMCSI. (R2)+ 
ie MOVE 8200, (Re)+ 
JSR eC PUT GO WRITE GISTERS VIA PUT SUB 
BR G0 TO abe TF.N 
7 NOOR ve tte 
Hats ApdtS? 2sHe FEO aos 00 10 18 See Bay ru 
ero 80S: 
1 ;SETUP INPUT REGISTER FOR READING STATUS 
fa 004737 036726 JSR PC, a 
ae ;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
004737 037622 JSR PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 
b576 737 037012 ISR PC’ GET ip READ’ GISTERS VIA GET SUB 
BR go¢ G0 TO IF Kalle: 
baa 1OsG08 ERROR nid i BY GET SUB 
6580 137 o2s44e2 IMP 190$  ;GO TO ie IF ERROR WAS FOUND 
658 90S: 
ee VERIFY RESULTS OF WRITE COMMAND 
6584 737 O40006 ISR PC, PRIERR G0 CHECK FOR PRIMARY ERRORS. 
BR 100s GO TO 100$ IF NO 
NOP ; RETURN fenE IF ERROR 
1o"000 ERROR NED | BY PRIERR SUBROUTINE 
65°3 736 JSR PC, a(SP)+ G0 SR orc FOR CHECKS 
000137 o2s442 sti 1905 ;60 113 190$ IF ERROR WAS FOUND 
737 0S2312 " ‘JSR PC, DTASTS G0 VERIFY OF DATA TRANSFER 
BR 110s 10s IF NO ERROR 
ERROR Be ean BY DTASTS SUBROUTINE 
Be Bee ine © oo eae, 
Be 137 oes44e2 Yer JMP 196s ;GO TO 190$ IF ERROR BAS FOUND 
004737 040640 * ‘JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
94 SO040s BR 1208 -GO TO 120$ IF NO ERROR 
NOP ;RETURN HERE IF 
1 104000 ERROR “ERROR # DEFINED BY SECERR INE 
004736 JSR PC, a(SP)+ GO BACK FOR MORE CHECKS 
137 oes442 IMP 190$ ;GO TO 190$ IF ERROR WAS FOUND 
S605 120$: 
B08 CLEAR “IAE™ ERROR AND PREPARE DEVICE 
004737 033274 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
B08 154130 .WORD 154130 ;TASK DESCRIPTOR 
BR 125 ;GO TO 125$ IF NO ERROR 








E 
e 


MACY11 30(1046) 29-JUL-77 15:01 PAGE 133 SEQ 0135 
Te? FORMAT INVALID CYLINDER ADDRESS 


ie TERROR ® a FO f TPRP INE 
ioe Brno 190$ ; 60 10 Pats IP ERROR HES FOUND 
READ HEADER AND DATA FOR SECTOR JUST Ten YEPORR 

MOV #RH! 8 par COMMAND 

MOR PUT ° VIA ebonese SUB 

BR Sos G0 TO i" ab IF sre 

NOP 

ERROR 

IMP 190 00 1 108i Plain bk rain 
1308: 
;SETUP INPUT REGISTER BUFFER FOR READING STATUS 

ISR PC, GETSTS 


ERROR : 
IMP 190$  ;GO TO 190S IF ERROR WAS FOUND 


140S: 
;VERIFY THE RESULTS OF READ OPERATION 
ISR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
BR 1S0s GO 19 150$ IF NO ERROR 
NOP ; RETURN ERE F 
ERROR “ERROR ® DEFINED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
a IMP 190s ;GO TO 190$ IF ERROR WAS FOUND 
JSR PC, OTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ -GO TO 160$ IF NO ERROR 
: RETURN PERE IF ERROR 
ERROR : # DEFINED BY DTASTS SUBROUTINE 
ISR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
aie IMP 190s ;GO TO 190$ IF ERROR WAS FOUND 
JSR CERR GO CHECK FOR SECONDARY ERRORS 
BR Tease jg2.19 1 F NO ERROR 
NOP ; RETURN F 
ERROR “ERROR ® DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR ERROR CHECKS 
IMP 190$ ;GO TO 190$ IF ERROR WAS FOUND 
170S: 
s INCREMENT ADDRESS AND FORMAT NEXT CYLINDER as aunt 
b1?77 OeCO DOE, Fo CYLI 


BLO 
JMP iss :GO DO NEXT SECTOR 
190S: 





SESEPEERLERSEREEREREEEE. 33 


wo 
i 


Na 
SRR Po 
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$3 RESELLER ESKEUSE RAL LE ASK KEES KEK SRS ERERARAERE REESE YER ERER EAE REUSE 
:KTEST 30 FORMAT AT OFFSET 
et ee at 
12708 901100 HOV SSTACK, SP j INITIALIZE STACK POINTER 
rea So tiae MOV sonst AO eR} Device BEING TESTED 
12737 000030 001226 on MOV #30, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
SETUP PARAMETERS FOR TING DATA BUFFER 
012737 901432 HOV so.RDCO jCYLINOER = 0 
+> e TRACK = = 
02S! 1 001430 MOV SF AT 16, RMOF: 16 BIT FORMAT” 
02SS 1 1 001400 MOV ac 10 (E4256. +1) ,RMWCO 72 + WORDS 
i ire SOLE HOY SIS GOTANCETO pet BAD DATA 
1 otied pote MOV SerDaS STHPD tee SECTOR ROR DATA PATTERN 
iterg 000001 001176 MOV 81, STE 
036114 15s: ISR : ;GO GENERATE DATA BUFFER 
;PREPARE DEVICE FOR DATA TRANSFER 
004737 033274 ISR TSTPRP -PREPARE DEVICE FOR TEST 
S41 154130 ;TASK DESCRIPTOR 
30s GO TO 30S IF NO ERROR 
NOP ; RETURN ERROR 
44000 ERROR jERROR @ DEFINED BY TSTPRP SUBROUTINE 
137 026334 oie IMP 190 :GO TO 190$ IF ERROR WAS FOUND 
OFFSET DEVICE FOR WRITE 
15 001376 MOV 8OFFSET!GO,RMCS10 ;CHANGE TO OFFSET COMMAND 
1533 MOV 8PUT nx Re *WRITE PUT INDEX TABLE 
DOSE Brae (ie) 
Tastee nove sancs! «t ae 
0eSber 900200 MOVB 8200, (Re) TERMINATE TABLE 
0°56 3, ISR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
: BR 3s$ GO TO 36s F NO " 
De ERROR * ERROR DEFINED By By OF SUB 
026334 sbi IMP 190$ ;GO TO 190 IF ERROR WAS FOUND 
;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND AT OFFSET 
912737 000063 001376 MOV WHS CD 10 ; WRITE HE AND DATA COMMAND 
! Soante MOV ePUTINK, Re WRITE REGISTER INDEX TABLE 
Ligves Sooo rove Mr (et 
025676 112722 000200 MOVE #200, (R2)+ 





OZRMDA - RMNO3 A ag pe a jest, PART 2 WMACYII DUO) 
OZRMDA.P11 23-JU-77 1 4:07" T30 FORMA 
6722 O2eS702 O0N737 037262 JSR 
anes Pe 
JMP 
;WAIT FOR WRITE 
JSR 
JSR 
Ba 
NOP 
ERROR 
JMP 





8 
se. 


ee oe ae 


_ 
8 
ee 


Oy 


I SPPSET DEVICE FOR 
NOV ser Boe RACSIO ‘CRIT 


BEES 


335° 


F1l 


29-JUL-77 15:01 PAGE 135 
AT OFFSET 


PC, PUT GO WRITE REGISTERS VIA PUT SUB 
Bo$ :60 TO ais IF 


PRT et PIF ao 


190$  ;GO TO 1808 IF 


ei my Rec ee rets FOR READING STATUS 


T 
pe eres 
Pest Fons vin CT sus 
Fae cet sue 
1908 co 1016p PEE HRED. BY, GET 


~~ a PP ponent" ;00 CHECK FOR PRIMARY ERRORS 


9.1008 1 F NO ERROR 
Eero PR reas SUBROUT INE 
hat Loy aot 
1 TO 1 ERROR AS FOUND 
PC, OTASTS ;60 went OF DATA TRANSFER 
110s F NO ERROR 


meses Ripa 
190$ ;G0 TO | TP ERROR 


PC, SECERR ;GO CHECK FOR SECONDARY 
1205 GO TO eos I F NO ERROR 

+ RROR yan iene ie Exon BY SECERR SUBROUTINE 
PC ,a(SP)+ :GO BACK FOR CHECKS 
1 ;GO TO 190$ IF ERROR WAS FOUND 


TO OFFSET COMMAND 
PUT INDEX TABLE 
R2)+ 
ar ie 
1 tRvs 
warns (Re 


PC, PUT GO WRITE REGISTERS VIA PUT SUB 
1258 G0 TO a NO 

HED PUT SUB 
190$ ;GO TO ss" t IF Ba Fur 


SEQ 0137 








aD CO € 
cvs 





pagal suo), eer? it PAGE 136 


; READ = AND DATA AT OFFSET 


Se APPS ar 


SRW, (te) 
an sf} 
8200 


MOVE 
as gts WRI TERS VIA PUT SUB 
ar Sts G0 TO 140$ IF Mi ERROR on 
ERROR + RROR | midis ned BY PUT BY PUT SUB 
Seat IMP 190$ 0 To 1808 IF ERROR WAS FOUND 
;WAIT FOR READ TO Coe STE AND GET STATUS ; : an 
ian PEG ae go Renn’ bistens Vin Ger sua 
BR G0 TO 140s 
NOP ; RETURN E_IF ERROR 
ERROR ERROR DEFINED BY GET SUB 
‘th JMP 190$  ;GO TO 190S IF ERROR WAS FOUND 
; VERIFY 18 ea oti OF OPERA “tenn 6 FoR a, ROR 
- motel noe (fee IE, BY PRIERR SUBROUT INE 
a Fe EPO aE TF Eins Feu 
Regs 0 VER FR 
ace SLB er gg 
190$ ;G0 TO 190$ IF ERROR WAS FOUND 


160S: 
eo ;G0 CHECK cram (2 ioe we eente 


co Boe PERMA teense pro 


"e508 ee 3038 4 a 


Shs ;GO TO 190$ IF ERROR WAS FOUND 
170$: 
; VERIFY 
PC, CMPBUF WRITE, + BERD DATA BUFFERS 
pir one Hi ite RODORE Ss. OF Ra Ber BUFFER 
180$ 70.1608 IF NO ERROR 
NOP : RETURN F 
ERROR EI # DEFINED BY CMPBUF SUBROUTINE 
IMP 190$ GO TO 190$ IF ERROR WAS FOUND 


SEQ 0138 
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pb i 
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8 


» PART 2 


001430 
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MACY11 30(1046) 29-JUL-77 15:01 PAGE 137 SEQ 0139 
T30 FORMAT AT OFFSET 


180S: 


BIT s0FD, RMOFO ;DONE BOTH OFFSETS?? 
i YES 

i aT 
190$: 
g3 SELRASKASRE RHA SLSEEESLHSL ERE RERERKAS LESS LARS ERA HLERLERARRRSLEKE 
:KTEST 31 IVC FORMAT TEST 
; imi HEH HHH HHH HE EE EE EE RARER EER R EERE 

; ;SCOPE CALL 
iv 8ST ‘inti si r2t Bek. POINTER 
ny See RN 
= 
Sie, DTI BR. on 
;SETUP PARAMETERS "* GENERATING DATA ore i 
ER For =0 

oa act er G ae RMWCO i err F M 

nov tails 10 bates AND DATA 

my SAE EE SAR od Bae Barrem 
15s: JSR PC, GENBUF ;GO GENERATE DATA BUFFER 


PREPARE DEVICE FOR DATA TRANSFER 
JSR TSTPRP “PREPARE DEVICE FOR TEST 
158130 TASK DESCRIPTOR 


GO T IF NO ERROR 

sRETURN ARE TF ERROR 
ERROR ERROR # DEFINED BY TSTPRP SUBROUTINE 
IMP 190$ G0 TO 190S IF ERROR WAS FOUND 


MOV HOM, 19 ;SET 2 AGNOSTIC MODE 
MOVB 1, PUTINX WRITE REGISTER INDEX TABLE 
MOVB #200, PUTINX+1 
JSR PC, PLT -GO WRITE REGISTERS VIA PUT SUB 
BR 35$ GO TO 353 IF NO ERROR 
NOP RETURN HERE IF ERROR 
ERROR “ERROR DEFINED BY PUT SUB 
ous JMP 190$  ;GO TO 190$ IF ERROR FOUND 
;SETUP AND EXECUTE | WRITE HEADER AND DATA COMMAND 
MOV #hH!?GO, RMCS10 s WRITE HEADER AND DATA 
MOV #0, RMMR1O *RESET DIAGNOSTIC MODE 
MOV sPUTINX, Re ‘WRITE REGISTER INDEX TABLE 





SEEAISRRESSRSSESNSS 33 


Coorru 
D-DD DDD 
WONOU CWO 


Til 
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1 29-JUL-77 14:07 T31 IvC Peanat Test = oe 
Ht MOVB  SRMMRI, (R2)+ 
il MOVB thes 
i Hove SANDE? (Ra) 
1 SRMWC, (RO)+ 
ll MOVB = &RMBA, (RO)+ 
5 Ml MOVB eRncs! | (Re)+ 
- t 
av mere BERT -GO WRITE REGISTERS VIA PUT SUB 
1 Soo4oH BR go$ GO TO 80$ IF NO ERROR 
16 BOROR faite 3 heh BY PUT PUT SUB 
Ay oe7ie ERR 190 00 To 145846 Prada ted Foto 


; SETUP a REGISTER BUFFER FOR READING STATUS 





026624 004737 036726 PC, GETSTS 
;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
026630 004737 037622 ISR PC, un ;WAIT FOR COMMAND TQ, COMPLETE 
haan eed a go$ G0 TO off FO oa 
teees [on Freon iERPOn Derived oF cer SUD 
137 027142 1908 ;G0 T01 
026652 90S: 
: VERIFY TS COMMAND 
=f o01737 040006 feat Be BRT ER GO CHECK FOR PRIMARY ERRORS 
5536 BR 100s -GO TO 100$ IF NO ERROR 
Tosba9 ERROR i: wane Ein ERAOR # DEFINED BY P BY PRIERR SUBROUT INE 
eng 027142 on IMP 190$ a or 10 1808 fe 5 fas FOUND 
0266 010000 001370 . BIT sIVC, RNER2I ; i18 IVC STATUS SET?? 
T4945 001370 001142 MOV I, SBDDAT *RECEIVED STATUS FOR TYPEOUT 
4 001370 0011 MOV RMER@T, SGDOAT “EXPECTED STATUS 
? 1 0011 BIS sIVC, T 
724 104342 aes ERROR 342 ;IVC NOT SET DURING FORMAT % 
040640 ' CERR ;GO CHECK FOR 
S Bboibs fare - io 10 1gos IF ND ERROR 
NOP RETURN HERE 
E ERROR & BEF INED BY ORY ECERR SUBROUT INE 
JSR PC, a(SP)+ GO BACK F CHECKS 
137 027142 190$ ;GO TO 190$ IF ERROR WAS FOUND 
026746 120S: 
;CLEAR IVC ERROR 
eb76 904737 033274 JSR PC, TSTPRP “PREPARE DEVICE FOR TEST 
100 .WORD 40100 ;TASK DESCRIPTOR 
al BR 125$ -GO TO 125$ IF NO ERROR 
st wine NOP sRETURN HERE I 
104000 Se re ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
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DZRMDA 
OZRMDA.P11  29-JUL-77 14:07" T31 IVC FORMAT 


bar Geerbe 000137 027142 1258: JMP 1390S 


ee 
Eos 


130$: 


JSR 


a 


140S: 





;READ “iv AND ot 00, FOR at thee JUST REO 


;G0 TO 190$ IF ERROR WAS FOUND 


& DATA COMMAND 


0 ro 52 Bangs OP 


eh er nn OS 


;60 TO ieee BE DEED BY, PU 


;SETUP INPUT RECS EE TetS ER FOR READING STATUS 


;WAIT FOR READ TO COMPLETE AND GET STATUS 


0 14ge BO REPO ERAGA Regist Rui rae 


x ow aE BETES 


; VERIFY ne RESULTS OF READ OPERATION 


PC. PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
isos 79. 1508 IF NO ERROR 
; RETURN 
*ERROR ® DEFINED BY PRIERR SUBROUTINE 
PC, a(SP)+ GO BACK FOR TERE ERROR CHE 
190s 560° TO 1508 IF ERROR HAS FOUND 
#IVC, RMER2] 15. IVC STATUS SET?? 
SBDDAT STATUS FOR TYPEOUT 
108 : T ceive STATUS 
1 sIVC, 
t 342 ;IVC NOT SET DURING FORMAT 
i te = ene. op 10 1708 F SOS TE NO ERROR 
1 ; RETURN here SF ERROA 
1 “ERROR # atom BY SECERR SUBROUTINE 
1 736 JSR PC, a(SP)+ GO BACK FOR MORE CHECKS 
ee 138 000137 027142 ies IMP 190s ;GO TO 190$ IF ERROR WAS FOUND 
b333 ngs 1905: 
6995S 5 HHHBHHHEHHHHHHHHHHHHHHHHHGIH HHH HHH HHH HHH EHHHEHE 
TEST 32 FORMAT ERROR TEST - 18 
14 ; ap aca ete TE EPP CORRES ROOT Ro 
Gere 000004 "SCOPE ;SCOPE CALL 
7000 144 000240 NOP *START OF TEST 
1 027146 012706 001100 MOV #STACK, SP ‘INITIALIZE STACK POINTER 


SEQ 0141 





EEC a cease RE 
Oe f BRR SRO) Gass 


qananenass 





- RMO3 FUNCTIONAL TEST, PART 2 
-Pll = = 29-JUL-77 14:07 
1 1 1276 
Cerise bi37o1 OoliNe 
Oe? ibs 012737 001226 
1 
1 432 
Hee BES BN 
1 430 
1 400 
1 402 
1 376 
D373? ive 
004737 
004737 033274 
154130 
027664 





8 
8 





001376 
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T32 FORMAT ERROR TEST - 18 


MOV SBASE RO sROSUNIBUS ADDRESS 

MOV TSTQUE,R1 *(R1) = DEVICE BEING TESTED 
a MOV 832, STESTN SET TEST NUMBER IN APT MAIL BOX 
SETUP PARAMETERS FOR GENERATING DATA BUFFER 

MOV #0, RMOCO ;CYLINDER = 0 

MOV 80; RMDAO TRACK = SECTOR = 0 

MOV #0, RMOFO 18 BIT FORMAT 

MOV 8¢40<24256.>41>,RMWCO 32 + 

HOV Sa - PRT Te Rr RATA 

MOV #ZEROS STHPO USE ALL ZEROS DATA PATTERN 

MOV #1,STMP1 
at ISR PC; GENBUF GO GENERATE DATA BUFFER 
PREPARE DEVICE FOR DATA TRANSFER 

JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 

.WORD 154130 ;TASK DESCRIPTOR 

BR 30S -GO TO 30S IF NO ERROR 

ier EEN A OCEINED BY TSTPRP TINE 
aa ‘ ie 180$ , 25 10 i P ERROR LS FOUR 
;SETUP AND EXECUTE WR R AND DATA COMMAND 

MOV WntGD Henge sWRITE HEADER AND DATA 

MOV ae NK Re “WRITE REGISTER INDEX TABLE 

NOV *(RO)+ 

MOVE § #RMOF, (RO)+ 

MOVe «BRMOR’ (RODS 

(R2)+ 

MOVE  #RMCSI. (R2)+ 

MOVB #200, (R2)+ 

ISR PC, PLT -GO WRITE REGISTERS VIA PUT SUB 

BR go$ :GO TO 80S IF NO 

NOP RETURN HERE IF 

ERROR : DEFINED BY PUT SUB 
oe IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 


;SETUP INPUT REGIATER ER FOR READING STATUS 
JSR ° 


GETSTS 


;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
JSR PC, TIMOUT 


ERROR 
JMP 


PC’ GET Go READ RERISTERS Vin ere 
90$ :G0 TO 90$ IF NO Bate 


Paar et oP ae 
10s 00 10 iB Bao 


; VERIFY RESULTS OF WRITE COMMAND 


SE@ 0142 





aa ees al 


NNN 
Pt be fn ae Pm B= bh mh P= DH 
ss) RL 


wre 


wi 
ra 
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1 29-JUL-77 14:07 T32 FORMAT ERROR TEST - 18 
027406 004737 O4O006 JSR PC, PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
le BR 100s T F NO ERROR 
ie a HE, SUBROUT 
tat JSR PC, a(SP)+ 60 BACK FOR FOR at _ 
Je 027664 PE 180s : Tae ERROR RAS FOUND 
; :G0 VERIFY, OF DATA TRANSFER 


110$ IF NO ERROR 
Be ee BY DTASTS SUBROUTINE 


tt peal ae 80S iF WAS FOUND 







tartitot sti 
} + 


id 


sean Ela GELS 
$24 a 
a 
5 






1¢ 


110S: 


am ERROR + BEROR ERROR # ato BY CET CE CERR SUBROUTINE 
, ISR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
027462 000137 027664 IMP 180$ GO TO 180$ IF ERROR WAS FOUND 
027465 1208: 
sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN AT_16 BIT FORMAT 
027466 012737 010000 001430 MOV 16, RMOFO “CHANGE TO 16 BIT FORMAT 
027474 Ol 000073 001376 MOV #RH! GO. RMCS10 ; READ & DATA COMMAND 
be7ece 12737 103600 001402 MOV SBUETHO, RMBAO i CHANGE 
1 037262 JSR WRITE Re STERS VIA PUT SUB 
14 BR Moose G0 TO 140s at 
NOP IF ERROR 
104000 ERROR ‘ERROR DEFINED BY PUT SUB 
137 027664 «Ain IMP 180$ ;GO TO 180$ IF ERROR WAS FOUND 
;WAIT FOR READ TO COMPLETE AND GET STATUS 
027505 pow737 937622 ISR PC, TIMOUT WIT FOR. OR_ READ TO COMPLETE 
Ole JSR PC’ GET -GO READ’ REGI VIA GET SUB 
t578%6 raat BR 140$ . ;GO TO 190$ IF NO R 
i ERROR : INED BY GET SUB 
be7eu4 000137 027664 ‘oe IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 
; VERIFY RESULTS OF AD OPERATION 
027550 004737 O40006 I “BCS ;GO CHECK FOR PRIMARY ERRORS 
027554 OO0040S G0 TO 1508 IF NO ERROR 
en ibs SAU BS ee 
037560 1 HOROR : # DEFINED BY PRIERR SUBROUTINE 
004736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 027664 » is IMP 180s ;GO TO 180$ IF ERROR WAS FOUND 
VERIFY THAT FORMAT ERROR IS SET 
927570 932737 000020 001342 BIT arER ,RMERLI ; 1s FORMAT ERROR SET?? 
027600 004737 os2312 JSR -PC,DTASTS + ;GO VERIFY RESULTS OF DATA TRANSFER 
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DOZRMDA.P11 29-JUL-77 14:07 T32 FORMAT ERROR TEST - 18 


ss AR ARE ren he" BO 
SR 








il 8 DEFI TAS 
ry fereis teow GE" pe arses ee ae 
, ig 137 027664 ape iin IMP 180s -GO TO 1 WAS FOUND 
7iE8 Nese Soiais PLE sss: AY ORRERIT’ gape ie bare Fae 
7lel 27 000020 001140 BIS rent Seon 
zt — 104343 ile ERROR 343 FORMAT ERROR NOT SET 
71 737 O40640 * ‘JSR PC, SECERR :G0 CHECK F FOR SE 
2 i BR 1708 460. "0.1708 IF Soe ND ERROR 
? RROR I 
St Or FRROR bc asp )s nat PF Sie aE 
Ht: 137 027664 con JMP 180$ G0 TO 1 WAS FOUND 
HE st 
ae . ‘itest 3 H ORPAT ERROR TEST m1 serene 
et i jane BPLESREREMRREM ERLE EKER CREMKEERE RR 
71 : ‘Store 
is ES score Hale Ela rome 
He re Gee wise mf me tea 

° 3 
Ce he ne Oe 
7144 , 
7145 ; ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
7146 12 012737 000000 001432 MOV 80, RMDCO sCYLINDER = 0 
7147 1 000000 001404 MOV TRACK = SECTOR = 0 
71 1 0 001430 MOV 1g, RHOF 16 BIT FORMAT 
71 1 1 1400 MOV ae See S41), RNWCO se + 256 WORDS 
7\ 1 1 001402 MOV ONE RH@AO DATA BUFFER ROORES 
71 1 00137 MOV shH ;HRITE HEADER AND DATA 
71 1 4110 001174 MOV 8ZEROS 1000 USE ALL ZEROS DATA PATTERN 
71 O1e737 900001 001176 #1, STMP1 
a 737 114 al ISR PC; GENBUF :GO GENERATE DATA BUFFER . 
71 , 
71 j PREPARE | DEVICE FOR DATA. TRANSFER 
7158 O¢ 004737 033274 “PREPARE DEVICE FOR TEST 
7158 154130 wor jst Bere TASK DESCRIPTOR 
wet JRETURN FERE TF -ERROR 
? be ipvoun BRROR ERROR 8 TSTPRP TINE 
As 030406 MP 180$ 00 FO IP ERROR LS FOURIO 
71 : 
71 SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
tes 030016 012737 000063 001376 ’ #hH!GO, RMCS10 sWRITE HEADER AND DATA 
7168 030024 012702 001533 8PUTINK, Re *WRITE REGISTER INDEX TABLE 
7169 030030 112722 000006 MOVB = BRMDA, (R2)+ 
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OZRMDA.P11 29-JUL-77 14:07 T33 FORMAT ERROR TEST - 16 


Sty GBRBAd 115788 
0300 112722 







wa 


a 


Peru 0 10 olf Ft co STERS VIA PUT SUB 


hove 
MOVE 
Reva ee 
MOVE ey 
e 
HE eos, 00 10 18 peeved Br eu Se 


;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
036726 JSR PC,GETSTS 7% 


ae sWAIT ra “ cae COMPLETE AND ThaT Fo 19, COMPLETE 
as GO REA" RE VIA 


~ 


ERROR hed BY cer SUB 
180$  ;GO TO 180$ IF WAS FOUND 





; VERIFY RESULTS OF WRITE COMMAND 


omer Ger gis 0 OE OE PSF 


NOP ; RETURN IF ERROR 
ERROR ERROR # DEFINED BY PRIERR SUBROUTINE 
PC, a(SP)+ >G0 BACK FOR CHECKS 
030406 to JMP 180$ ;GO TO 180$ IF ERROR WAS FOUND 


SINAN NNANNNNNNNANNNOEI 
SRRLIROEBESERESRE SII LS 





=|=\=|= 
+ 


AtAtA Aaya 






+ 








bbat? 
004737 
te 
000137 
Obo%8s 
000240 
ae 
004737 O0S2312 i 17" {demi ;GO VERIFY RESULTS OF DATA TRANSFER 
ae 
Be 
ae 
13 





ix 
ue BR 11 82, T dl OS IF NO ERROR 
O30 ERROR INED BY DTASTS 
ie ERROR bc. a(SP)+ See Be iD tehOR Crete ne 
i 030406 les JMP 180S ;GO TO 180$ IF ERROR WAS FOUND 
10 030 040640 JSR PC, SECERR GO CHECK FOR SECONDARY 
i 030 BR 1205 ie) Tol ERROR 
tk NOP ; RETURN HERE 
1 ERROR 8 DEFINED BY SECERR SUBROUTINE 
14 JSR PC, a(SP)+ GO BACK FOR CHECKS 
1 030406 JMP 180$ G0 TO IF ERROR WAS FOUND 
i 030210 1208: 
rl 
READ HEADER AND DATA FOR SECTOR JUST WRITTEN AT 18 BIT FORMAT 
10 012737 o00000 0014 MOV #0, RMOFO SET FOR 18 BIT FORMAT 
& 16732 990073 001376 MOV wRH? GO, RMCS10 READ HEADER & DATA COMMAND 
1 1 1 MOV sBUF TWO, “CHANGE BUS ADDRESS 
737 037262 JSR , PC,PUT GO WRITE REGISTERS VIA PUT SUB 
BR 30S  ;GO TO 130$ IF NO ERROR 
000240 NOP RETURN HERE IF ERROR 


T, PART 2 


a 
wi 
~ 
¢ 
8 
onl 


14: 





001342 





O0040S 

0303 000240 

730406 pion 
000137 030406 
000004 


UR 8 


esee= 
dasa 
Z 
88 
& 


SEQ O146 


Ble 
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ERROR ERROR DEFINED BY PUT SUB 
=o IMP 180$ G0 TO 1808 IF ERROR WAS FOUND 
;WAIT FOR READ TO COMPLETE AND GET STATUS 
JSR PC, TIMOUT Malt FOR READ TO COMPLETE 
JSR PC’ GO READ’REGISTERS VIA GET SUB 
BR 140$  — ;G0 TO 140$ IF NO ERROR 
ERROR ieee INED BY et SUB 
a IMP 180$ ;GO TO 1803 IF ERROR WAS FOUND 
TT TE eT ene ron enpeny 
150s ; KD fo 1 TF RO ERROR 
irae sRETURN JERE IF ERROR oe cuerout 
7SR PC, a(SP)+ OREN POR HOKE ERROR Ci sen 
ont IMP 180$ . : 10 in ? ERROR. Fas FOUND 
VERIFY THAT FORMAT ERROR IS SET 
BIT FER, RMERII ;1S_FORMAT ERROR SET?? 
aye TASTS G0 VERIFY LTS OF DATA TRANSFER 
BR 158$ F NO ERROR 
ERROR ae a TOASTS. SUBROUTINE 
JSR PC, a(SP)+ 
IMP 180$ 360 TO 1 OF EE eas FOUND 
eS: AY ORNERIT’ seDbaT IRSCEIVED STATUE FOR TWPEOUT 
ats SoAT ; 
aie ERROR 343 FORMAT ERROR NOT SET 
* ‘JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 1705 -GO TO 170$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
ERROR “ERROR # DEFINED BY SECERR SUBROUTINE 
ISR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
ane JMP 180$ ;GO TO 180$ IF ERROR WAS FOUND 
180$: 


eT Tatas 


; kTEST FIRST HEADER WORD 
Lee evvaeaneeeen tee tuH SAS HOHEEEESAAESEEEEOEOEEEEEE EEE 


#8134 cod 
nt oat Eta ESTA POINTER 


; RO=UN 
sR) § ap via ar ABT PAIL BOX 


;INIT BIT POSITION 


eres SP 


ith 


=] 





aOR RROMO naa E AEE aEAAY I 





paval ou) JUL-77 15:01 PAGE 14S 
» FIRST HEADER WORD » a daaated 


108: 
SETUP PARAMETERS FOR GENERATING DATA BUFFER 
3 Fe 

: = SECTOR = 0 
af HT 16, RNOFO : 
8< tC< >41>,RMWCO  ; 
sotFone 
iH si REICSLO WRITE HEADER AND DATA 

“USE ALL ZEROS DATA PATTERN 


ons: aOR i Te 60 GENERATE DATA BUFFER 


PREPARE DEVICE FOR DATA TRANSFER 
ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
sifORO 154130 TASK DESCRIPTOR 


2238338 


:GO0 TO 30$ IF NO ERROR 
Rp RETURN HERE IF ERROR 
ERROR ERROR # DEFINED BY TSTPRP SUBROUTINE 
oo IMP 180 G0 TO 180S IF ERROR WAS FOUND 
;COMPLEMENT DATA BIT IN FIRST HEADER WORD 
BIT 1508, BUF ONE ;1S BIT IN HEADER ON?? 
BIC 1908, BUF ONE RESET BIT IN HEADER 
318: BIS 1950S , BUF ONE ;SET BIT IN HEADER 
32S: 
SETUP EXECUTE WR AND DATA COMMAND 
: AO reated Eaceipe ;WRITE HEADER AND DATA 
MOV ePUTINK Re WRITE REGISTER INDEX TABLE 
Nove wenn. (fs}s 
MOVE BRMOF, (RO) + 
RNC, (Re) + 
1, (Re)+ 
MOVB 8200, (Re)+ 
JSR PC, PUT GO WRITE REGISTERS VIA PUT SUB 
BR go$ G0 TO ois 1F 
NOP IF ERROR 
ERROR ‘ERROR DEFINED BY PUT SUB 
vm IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 
SETUP INPUT REGISTER BUFFER FOR READING STATUS 
ISR PC,GETSTS 
;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
ISR PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 


PC’ GET GO READ’REGISTERS VIA GET SUB 
g0$ G0 TO 90$ IF NO ERROR 





iS ol 
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29-JUL-77 14:07 T34 FORMAT HCE, FIRST HEADER 
NOP RETURN HERE IF ERROR 
ERROR “ERROR DEFINED BY GET SUB 
031410 a IMP 180$  ;GO TO 180$ IF ERROR FOUND 
040006 sVERIFY FESULTS OF pRiERR ;00 CHECK FOR PR 
Bets ‘rum ik Je Pook 
ERROR aa iE ERROR # DEFINED BY PRIERR SUBROUTINE 
031410 ote MP bos G0" BACK oon bed fol WAS FOUND 
052312 ; PC. DTASTS GO VERI 
B08 vumn fhe CaF 
ERR ss ereea eR aaa DEFINED BY DTASTS pak 
031410 ian IMP 180s , _, ;G0 oF OT Bos RO RHOR WAS FOUND 
040640 " ‘JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 1208 -GO TO | F NO ERROR 
ERROR PERO Pinte + DeFIVED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
031410 foes IMP 180s co" TO 180$ IF ERROR WAS FOUND 
sREAD HEADER AND DATA F CTOR JUST WRIT 
012737 000073 001376 MOV abtit co RRcSi 6 ref HEADER & DATA COMMAND 
o 16737 103600 001402 HOV seUe Tu, GRO {CHANGE BUS ADDRESS — 
tops Bowen 7o7ebe ee TSS 50 TO 140s WAITS REGISTERS 
1010 o00e40 NOP RETURN HERE IF ERROR 
1012 104000 ERROR ROR DEFINED BY PUT SUB 
1014 000137 031410 i IMP 180$  ;GO TO 180$ IF ERROR WAS FOUND 
;WAIT FOR READ TO COMPLETE AND GET STATUS = 
ISR WAIT FOR TO COMPLETE 


Peg T GISTERS VIA GET SUB 
140$° = ;G0 TO 1468 fF a 


& 
Igoe 031410 ie 180$ :GO TO ire noe DEF NED BY Gr, we 


140$: 


8888888 S8888a6 
FH be eb bh 
- = 


VERIFY THE RESULTS AD OPERA ON 
1 004737 O40006 15h  PRIERR CHECK FOR PRIMARY ERRORS 

1 000405 -GO TO 150$ IF NO ERROR 

1 ooge49 sateen HERE IF ERROR 

1 104 ERROR ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
1 7% JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 

i 000137 031410 INP 180s ;GO TO 180$ IF ERROR WAS FOUND 


1S0$ 





LUDA Li 


Ele 
WACYIL S0C10N6), 29-177, 15:01, PAGE 147 SEQ 0149 


wi 
— 











RMO3 FUNCTIONAL TEST, PART 2 
1 29-JUL-77 14:07 
031062 032737 140000 031412 BIT SSE! USE, 190 ;IS THIS BSE ?? 
ire mit TS 
1 010000 031412 BI 16, 190$ 1S THIS FER ?? 
il i BEQ iSSS :NO !! 
;VERIFY THAT FER IS SET 
110 e7 p00020 001342 BIT : ,RMERLI ;1S FER SET ?? 
111 052312 JSR PC DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
ll BR 1S] -GO TO 151$ IF NO ERROR 
il NOP ; RETURN F PARoA 
il ERROR *ERROR ® DEFINED BY DTASTS SUBROUTINE 
il SR PCa (SP)+ G0 BACK CHECKS 
il ° 1 031410 ea Ite 186 ; : 00 TO 1 IF ERROR WAS FOUND 
ok : WER 2, , 
Bile Glee iiss Buse GY RRL SRET =| SAREYES San 
rites 3 PES oR A sFORMAT ERROR NOT SET 
il 14 BR 180$ 
— Le ESiFY THAT BAD SECT IS SET 
031160 032737 100000 001370 ’ BIT obee Reker 31S BSE SET ?? 
1k 1166 1073 BNE 160$ *YES t! 
0311 052312 PC. OTASTS GO VERIFY TS OF DATA TRANSFER 
031174 BR 153$ -GO TO 153$ IF NO ERROR 
031 NOP RETURN HERE IF ERROR 
031 ERROR *ERROR # DEFINED BY DTASTS SUBROUTINE 
031 73 JSR PC, a(SP)+ GO BACK F CKS 
a3 so 4 137 031410 ie IMP 180s ;GO TO 180$ IF ERROR WAS FOUND 
031210 O1 1 001142 "MOV T  RE| aT 
031 i6 1 601146 MOV PERS : T i ERDEGYED Sratte 
031 1 00114 BIS #BSE T 
BiSa5 Bt t pie NOY BUETMO'STRPL ReaD WORD 
03124 013737 031412 001200 MOV 190$, Stur2 *FAILING BIT POSITION 
: ERROR 345 *FAILED TO DETECT BSE 
031 O004SS BR 180 *SKIP REST OF TEST 
031 15S5S: 
VERIFY THAT HEADER COMPARE ERROR IS SET 
000200 001342 BIT SHE, MERIT 518 SHE” SET?? 
i 1 1 te 





+ 


ATAITATATATATATATATA 


JSR PC. OTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
156 -GO TO 156$ IF NO ERROR 


3 
: 


; RETURN HERE IF 
“ERROR # DEFINED BY DTASTS SUBROUTINE 


Seas" a 
2 


1 
i 
1 
1 
031 
031 
031 GO BACK FOR 
i e 9001 031410 1860S " ;G0 10 dees ia ERROR WAS FOUND 
: ’ ; 
031 1 Mizs42 O01142 156S RMER1I, SBDDAT RECEI TUS FOR TYPEOUT 
fares 001 01140 HOY RHERL 0 T EXPECTED STATUS 
031 1 baad 001174 MOV BUF ;WRITTEN HEADER 
031336 013737 193609 001176 MOV BUF TWO, STMP1 : WORD 
Bi 4 33 031412 001200 MOV 1908, stiPe FAILING BIT POSITION 
031 104344 ERROR 344 : FORMAT NOT SET 





Fle 


- RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 148 SEQ 0150 
Pll 29-JUL-77 14:07 T34 FORMAT HCE, FIRST HEADER WORD 
031354 000415 BR 180$ 
031356 160$: 
;CHECK FOR OTHER 
040640 3eR Pe SECERR ;G0 CHECK FOR SECONDARY ERRORS 
BR 1 ;GO TO 165$ IF NO ERROR 


NOP ; IF 
: 8 DEFINED BY INE 
Rot cee Med DRED fy cece, sunour 
031410 ee IMP 180$ GO TO 180$ IF ERROR WAS FOOND - 





;ADVANCE THE BIT POSITION AND FORMAT AGAIN IF NOT DONE 
{ET oreet BIT POSITION 
















ERULORPEEEEEECECT LIT CL SE! COREEERERETT (eT CPE COREE BEE 


Bie wi cone iat 7 

140s 000137 o3044e cal IMP 10$ GO DO NEXT SECTOR 

Ba 000401 hana BR 200$ ; JUMP OVER STORAGE 

G34 oo0000 * WORD ;STORAGE FOR BIT POSITION 

1414 200$: 

$3 RELEASE EKHELESREA SES RKAARARAKEASSERSSHRELESELRERRSR EES RE HA HRELE 
:KTEST 35 FORMAT HCE, SECOND HEADER WORD 

031414 jiseetebionssenseeeusecnssbecsussscesensensensenssenusuneeeeseecs 

31414 ; . 

Bis oe : 

a3 1 901100 MOV SSTACK, SP jINITIA IZE STACK POINTER 

B10 t Oo Lsg 1 >(R1) = DEVI NG TESTED 

0314 1 001226 MOV #35, $TES ::SET FEST NUMBER IN APT MAIL BOX 

Caine 012737 000001 032224 #1, 190s ;INIT BIT POSITION 

1 10S: 

;SETUP PARAMETERS FOR GENERATING DATA BUFFER 

1K 1450 12737 001432 MOV 80, RMDCO ;CYLINDER = 

031 12737 001404 MOV #0; RMDAO : = =0 

fl | 6 oly MOV af ATL, RHOFO : Ie BIT FORMAT 

T1500 Ol i YCMMONE RRaROD iB ate 

031 1 apooeg raed MOV HH oreato * WRITE ere Bara 

031514 O1 10 001174 MOV 8ZEROS, $TMPO USE ALL ZEROS DATA PATTERN 

031 1 001176 MOV a1, STP 

a3 114 vl ISR PC; ;GO GENERATE DATA BUFFER 
PREPARE DEVICE FOR DATA TRANSFER 

031 004737 033274 . ri PC, TSTPRP -PREPARE DEVICE FOR TEST 

031 154130 . WORD 158130 TASK DESCRIPTOR 

031 BR GO T F NO ERROR 

031 NOP ; RETURN 

03154 104000 ERROR >ERROR ® DEFINED BY TSTPRP SUBROUTINE 





ayant 99 


TAA 


NOU LUI 


BUT are ce ae cee ae at 


z 


RMO3 ag ie TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 149 SE@ 0151 
1 HCE, SECOND HEADER WORD 














29-JUL-77 14:07" 735 FORMAT 

931550 000137 IMP 180 ;GO TO 180$ IF ERROR WAS FOUND 

1554 30S: 

: DATA HEADER 

tsoy axazar zee 1oasre PUN ORTABLE BIL SSEEIP VEPOER HOR ary oy enoen on” 

1562 001404 BEQ 

ie eke C , BUFONE +2 RESET BIT IN HEADER 

1 Is 190S, BUF ONE+2 ;SET BIT IN HEADER 
031602 
An 1 AND EXECUTE WR HEADER AND DATA COMM 
tk i616 O1rte MOV SPUTINX, Re RITE He OEE ER TNDEX” TABLE 
031614 11 MOVB , (Re)+ 
031 il MOVB = SRMDC, (Ro)+ 
031 il MOVE SRMOF, (RO)+ 
031 il » (Re)+ 
Pt it rove (Re)+ 
x 1 | as )+ 
031 1 MOVB #200. (Re )+ 
ik 1650 JSR Pe Pu aig? RET WRITE REGISTERS VIA PUT SUB 
tk G0 TO IF 
Rise jon reer Sr el at 

t 137 032222 MP 180$  ;G0T01 
031666 80S: 

004737 


;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
036726 JSR PC ,GETSTS 


;WAIT FOR WRITE coee TO COMPLETE AND RGALT FOR STATUS 
JSR PC, TIMOUT OR COMMAND TO COMPLETE 


672 
676 JSR Pc GET GO READ’ WPL ISTERS VIA GET SUB 
es) : 00 10 Hh Het Se 
NOP WERE TF ERROR 
104000 ERROR INED BY GET SUB 
IMP 180$  ;GO TO ids TF IF WAS FOUND 


; VERIFY RESULTS OF WRITE COMMAND 
JSR PC, PRIERR ; 





1783 PCP GO CHECK FOR PRIMARY ERRORS 

i Ge SRETURN FRE fF ERROR NO ERROR 

He ERROR cae ewan 8 p # DEFINED BY PRIERR SUBROUTINE 
te on IMP ta : seer CO" 10 10s ie Ges FOUND 
1734 "JSR PC, DTASTS ;G0 VERIFY OF DATA TRANSFER 
1740 1106S 110$ IF NO ERROR 
1 NOP ; RETURN here iF 
1744 ERROR “ERROR # DEFINED BY DTASTS SUBROUTINE 
174% JSR PC, a(SP)+ GO BACK FOR MORE 

631780 000137 032222 i JMP 180$ :GO TO 160$ IF ERROR WAS FOUND 


Hle 
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DZRMDA.P11  29-JUL-77 14:07" T35 FORMAT HCE, SECOND HEADER WORD 
7562 004737 O40640 JSR PC, SECERR GO CHECK FOR SECONDARY 
7563 O00405 BR 1208 500 TO 1 F NO ERROR 
t i SR (SP)+ iE Ae D , at 7 aang 
beg? Shor? ose222 a je ©1608 60° TO 1808 TF ERROR AS FOUND 
READ HEADER AND DATA Fi TOR JUST WRIT 
012737 000073 001376 Roy brit co Sat fe HEADER & DATA COMMAND 
13% 1 103600 001402 MOV 8BUF TWO, RMBAO 
037262 ISR PC, PUT ares? SUB 
BR 1308  ;GO TO igs wale 
000240 NOP a 
ered 032222 ee 180$  ;GO TO . FDUNO 
130S: 
WAIT FOR <fEAD T TE AND GET STATUS 
ree Iz Bo MDLIT IT FOR READ TO COMPLETE 
7012 Ten PC’ GET G0 READ” REGISTERS VIA GET SUB 
BR 140$ . ;G0 TO 8 IF NO 
NOP TURN 
1 oxcee GE oz jc0 10 A Bl roo 
7508 032050 140S: 
VERIFY THE RESULTS. OF RE OF READ PER ec FoR i 
Bas — a isos To tous | [FRO ERROR 
ios ERROR ay acanan pc 8 D TE, BY PRIERR SUBROUT INE 
fe: i, 032222 il IMP gOS _— 60°10 1808 IP Fas FOUND 
75 VERIFY THAT HEADER COMPARE ERROR IS SET 
932737 po0200 001342 BIT HCE, RMERII 51S “HCE” SET?? 
I 1608" : YES! ! 
0321 737 052312 ISR PC. DTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 
0321 BR 1s$$ F NO ERROR 
Use 1 NOP 5 Rea 
re teil te SS DO ali 
SH 1 13 I 001142 1SS$ aOV 11, SBDDAT i Te ce ive i FOR YPEOUT 
Hesieea ag f giles Balen” 
O3e il BIS SHCE 
7611 Q3el 1 10257¢ 001174 MOV BUF ONE +2, TMPO WRITTEN 
7612 O3el 1 103602 001176 MOV BUF TWO+2, STMP1 * READ WORD 
7613 O3e1 13737 032224 001200 MOV 190$, STMP2 *FAILING BIT POSITION 
14 Oe 16s 344 ERROR 344 FORMAT ERROR NOT SET 
16 0321 15 BR 180$ 
7617 


032170 160S: 





- RMO3 TIONAL TEST, PART 2 
Pil ge wee” 
040640 


032222 


. a ors 
0001 0314S0 
000401 

000000 





— =e: 


Ile 
PS PEAS CHAD AEE 1 
;CHECK FOR OTHER i 0 CHECK F 
F TE SES 
SN al 


am IMP 180s :GO TO 180$ IF ERROR WAS FOUND 


;ADVANCE THE BIT POSITION AND FORMAT _* SECTOR IF NOT DONE 
pet 1 7 a TO_NEXT BIT POSITION 


Q 1 
‘ae IMP 10S +60 DO NEXT SECTOR 
vias, BR 200$ ; JUMP OVER STORAGE 

* WORD ;STORAGE FOR BIT POSITION 
200$: 


;PUT NEWTEST HERE 


SEQ 0153 






FUNCTIONAL fest PART 2 


29-JUL-77 14: 


001446 


001230 


Jle 
RACY SOCOM), B-TULA7? ISL PAGE 152 


SEOSP: 
NOP 
ro TSTQUE, RO 
* TSTQUE 
TST (RO) 
BEQ j 
JMP 


1S: MOV #TSTQUE+2, TSTQUE 
-SBTTL END OF PASS ROUTINE 


5 itn 4% PASS | eaten RE RRDeADe Sin 
TYE END Pie Rs TOTAL OF ERRORS SINCE LAST REPORT YYYYY™ 
: AND YYYYY ARE MAL NUMBERS 
IF THERES A MONITOR GO TO 
:¥IF SN’T JUMP TO READY 
SEOP: 
NOP 
CLR STSTNM ;;ZERO THE TEST NUMBER 
LR TIMES He T BOF ITERATIONS 
NC 3 NUMBER 
BIC #100000,SPASS ;:DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ ; ;LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN : YES 
MOV (PC)+,a(PC)+  3;RESTORE COUNTER 
SENDCT: . : 1 
TOE 65S >; TYPE ASCIZ STRING 
BR 64S -:GET OVER THE ASCIZ 
iag5s: SASCIZ <12><1S>/END PASS’ #7 
MOV SPASS, -(SP) ;;SAVE SPASS FOR TYPEOUT 
33 TYPE PASS 
TYPDS £260 TYPE--DECIMAL ASCII WITH SIGN 
TYPE 67S >: TYPE ASCIZ STRING 
“scrz ined OF boat 
jj8?8: “ASCIZ 7 TOTAL ERRORS St T 7 
MOV SERTTL,-(SP)  ;;SAVE SERTTL FOR TYPEOUT 
3; TOTAL OF 
TYPDS :3G0 ASCII WITH SIGN 
TYPE SCRLF 2? TYPE » LINE FEED 
CLR SERTTL *:CLEAR ERROR TOTAL 
SGET42: MOV 3842, RO *:GET MONITOR ADDRES 
BEQ SDOAGN ::BRANCH IF NO MONIT 
SET *?CLEAR THE WORLD 
SENDAD: JSR PC, (RO) *:G0 TO MONITOR 
NOP ::SAVE ROOM 
NOP 3;FOR 
NOP ;;ACTI1 
SDOAGN: 
JMP a(PC)+ ; ; RETURN 
SRTNAD: .WORD READY 


SEQ 0154 





Kle 


DZRNOA - RMO3 A ag pe TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 153 SEQ 0155 
DZRMOA.P11 29-JUL-77 14:07' END OF PASS ROUTINE 

76% 032466 377 377 OOO SENULL: .BYTE -1,-1,0 ;;NULL CHARACTER STRING 

7697 032472 -EVEN 


DZRNDA - RMO3 er. TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 154 SEQ 0156 
OZRMOA.P11  29-JUL-77 14:07" SUBROUTINES 
-SBTTL SUBROUTINES 


; KEKE LESEEGKLER AGS HLES LALA AEA ARH AAR ERA RE RARER RENE 
iSTTL ERROR TYPEOUT ROUTINE 


;#THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
opr. THE DETECTION OF AN ERROR AS FOLLOWS: 


NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
HAPRINTED ON 1 ut at at 
ine - , FORMATTED AND PRINTED ON 
ti Byion ete \ eanus AND ERROR DATA 
:#ARE PRINTED THE ERROR MESSAGE. 
ERRTYP: 
104414 SAVREG 
032777 020000 1464S2 BIT ash13, , aSWR s INHIBIT TYPEOUTS?? 
Bpois? 033222 fe ols sO 
-TYPE UNIT NUMBER, TEST NUMBER, ERROR’ NUMBER, AND PROGRAM COUNTER 
194401 001217 Is: Tyre , SCRLF 
104401 36 T TYOO ; TYPE _“UNTS” 
01374 001234 MOV SUNIT,-(SP) js SAVE SUNIT FOR TYPEOUT 
104403 TYPOS ay a WAL ASC SCII 
003 .BYTE 3 33 TYPE 3 DIGIT(S) 
“BYTE 0 : NG 
933226 CLR STNMB tt F 
1 1 033226 HOV STESTN TSTNMB 
bia7ae 3520 MOV +SinB,-(SP) toa “Tetiee FOR TYPEOUT 


ARPES RPT TESES DORM APRN NG ARAN ASR SR RSNA Tree ne ST 





1 T : ASCII 
ie te 3 Hoo. 3 rpIEIT CS) 
"BYTE 0 He LEADING ZEROS 
cn ce 
1 : BEG vii *SKIP IF NO, ERROR CALLED 
braze hee MOV ERRNMB,-(SP) 3; 7 FOR TYPEQUT 
1 T He ASCII 
oes BY 3 + pe 3 oreirce 
000 "BYTE 0 He LEADING ZEROS 
1o44o} 033263 2s TYPE ERTYO3 : TYPE” 
137% 001132 MOV SERRPC, -(SP) We Proce TYPEOUT 
104403 TYPOS He =-OCT SOuNTER 
nin -BYTE 6 3 6 DIGIT(S) 
1 "BYTE 1 He ING 
GENERATE POINTER TO ERROR TABLE’ UNLE ERROR NUMBER, IS 0 
005737 033230 4s TSI ERRNMG ;HAS, AN CALLED? 
104401 001217 TYPE SCRLF :YES-TYPE CRLF 
105037 CLRB BOTFLG ‘CLEAR BOT FLAG 





oO) 
— 





= oe 
AtA 


+ 
+44 





- = 
oa 
4a wy 


tae 
ye 
ale 


“+e 4% 


SESS ESSRAT ESS EREST SESE S RSSRSAET SESSA SEES BEE 


++ 





tut mtatnt 
Dad Carter Ca’ 
+ +4 

+ 
























FUNCTIONAL TEST, PART 2 WMACY1I 30(1046) 
29-JUL-77 14:07° ERROR TYPEOUT ROUT 
— BP ARR, 
001sS2 ADD 8SERRTB-8. , 
011001 MOV (RO), RI 
001507 BEQ 13$ 
-TYPE THE ERROR MESSAGE 
2 4s: Hoy (R1)+, Re 
I Q 1 
1 023040 MOV Re, 118 
033232 CLR BOTADR 
cS: MOVE  (R2)+,R3 
BEQ 10$ 
CNPB ss BCR, RB 
cre 1 
6S: CMPB »R3 
BEQ 
CHPB ss BHT, RB 
7$ ey EARCNT 
2 a: #7, CHRCNT 
BNE 7$ 
a 
; ice #’ ,R3 
BNE 3 
a MOV BOTADR : 
, Sr ie . aG4. , CHRCN 
Be yon 
TYPE SCRLF 
CLRE GHRCNT 
11$,Re 
BP SY 
Ws: te aT botrie 
10S: we cs 
11S:  .WORD 
TSTB BOTFLG 
BEQ 4§ 
TYPE SCRLF 
CLR  ©- BOTFLG 
So” = BOTADR, Re 
MOV R2, 11$ 
HOVE 8?’ -(Re) 
TS (Rej+ 
BR ss 
128: 





Mle 
29-JUL-77 i5:01 PAGE 155 
INE 


'8D POI OF 
SFOUR ENTRIES IN ERROR 
TABLE 


;R1 POINTS TO ERROR MESSAGE 


;INCRENENT CHARACTER COUNT 
sore 

; SS _OF SPACE 
3END OF LINE?? 


JSP PSS 


Rhee STRING 


i. STRING TRUNCRTED?? 


ie Met a PIPING 


TPE REST OF STRING 


TYPE ERROR HEADER AND ERROR DATA 


SEQ 0157 





29-JUL-77 14: 






AVOIMOOG 
tatatata? 


A 





tat 


Ata AtAtAtA 








+~* 















= 
+ 





BESBBRE 





15S: 


16S: 


2(RO),R1 
e 


4(RO),Re 
Hat 
21 


srg B 
Pe 


Sk Sk suRnaas 
BR _as 

— 

os 

ke 

t 

vo 

g 

— 


“ 
8 


#2 


FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 156 
:07 ERROR TYPEOUT ROUTINE 


;R1 POINTS TO ERROR HEADER TABLE 
iCGScure fo Dar 

ihe Pons I DATA ROORESS TABLE 
ar WEE ERE Pte 

; BRANCH 

; (ASSUME END OF DATA) 

sHEADER ADDRESS GOES HERE 

sDATA WITH HEADER?? 

?R4 POINTS TO DATA ADDRESS 


;RS POINTS TO FORMAT 
;WHAT KIND OF DATA?? 
BINARY 


; OCTAL 
; DECIMAL 


;MORE DATA?? 


:YES-TYPE 2 SPACES 
;AND_ CONT 


INUE 
pA 


; TEST NUMBER 
ERROR NUMBER 

; BEGINNING OF TEXT ADDRESS 
>CHARACTER COUNT 


B13 


) 29-JUL-77 15:01 PAGE 157 
on ROOULE 


SEQ 0159 


T 


-SBTTL TEST PREPARATION MODULE 


( 


hae FUNCTIONAL TEST, PART 2 MACY1 
Pil 29-JUL-77 14:07 TEST 


f BRREERERR RRR eRe REE EE REP REE EERE REE PEER ERERER ERR 


CUTION OF A TEST 
ECTED. THE USER 


YSTEM FOR THE 
Wh ERROR TS DEVE : 
WHICH THE MODULE EXECUTES 


"Whe User TF 
BE PERFORMED, 


ERROR 70 
; USING SUBROUTINES. 


SPECIFIES Ti 


t REPORTING AA 


DESCRIPTOR 
BY MODULE 
\F VOLURE NOT VALID 
RECALIBRATE IF POSITIONING IN PROGRESS 


ROR DEF INED 
IPTOR 
SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 


RN HERE JF 0 


: 


(RESERVED FOR DRIVE CLEAR) 


VERIFY PACK ACKNOWLEDGE 
VERIFY RECALIBRATION 


CLEAR eT he AND SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 


( 


? 
1 
1 
1 
1 


PC, TSTPRP 


Guns mu30 

SA SIMI ON OLNT MUA 
a a a 
DOF OE OSS Ot Oe th td 


Bal gessissesnsaasaes 
a % 


= 


SP TO USERS ERROR CALL 


;STORE DESCRIPTOR 


aneEidise iJ 

os & 

250 Ee = 

ssi 3 

Oe ee 28 

greneganen 
3) 


segtais ze 


is 
ea 


i ie 


: 

: 2 

: : i 
a 


;SELECT DEV 


KRHEKKKKK 
: SELECT 
10S: 
20S: 
30S 


SE 
: a: 
Ssseeey 


Sigg Bee 


T IN TASK 


;CLEAR CONTROLLER?? 
NO?! 


#BIT14 
120$ 


BIT 
BEQ 


CONTROLLER IF BIT 14 IS SE 


© ¢ S6-S6-36 SESE 3-36 3b 0b EE Sa aS a a a HEE 


; CLEAR 


gees , 


OnUMNTiNwor 
con hax ben panes pon benders 


RERRRKEK 





[Raa 


Pie ASLO Arar PART ® TBE besPaaar fon tad 1a. pe S£o 0160 


PC, CNT ; 
fea Ba gt pyran RE STE 
‘eer 00004 obs; ADO, cP) {TRANGFER ERROR TO USER 
HC 000000 move 40$.a(SP) 
Cale 034174 oo IME 400$ 
5 TN OMIROLER EAR Ir Bile eT Ih icK™TCSCSC 
033416 000100 o34206 ’ GOH TROLL ET ie coos ;VERIFY?? 


be fets1s ETP Thoex x TABLE 


NO ERROR GETTING STATUS 


s 
i 

gs 
G 













Sean Sees 









<Sar,: BR 
“San! BR 80s 
PIH44e 708: aHORD er. ;ERROR_FROM GETTING STATUS 
ek eee oo0000 nove 70%, 3(SP) Sanmaserden S arangerl> Mage 
. ese 90s: JSR 1008 sts GO VERIFY STATUS CLEAR 
ce i iN GION TH CLEAR 
100$:  .WORD ERROR IN STATUS CLEAR 
ye eerie mee: Gm 4:~ UT UTINS ANG TREREFER 
feet ii ea o00000 move ©: 100$, a(SP) T 
1 1 174 IMP 
033514 120 
5. EERE AE SEES SESE ESE SE ES J J 0 a EE 
i EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 
033 032737 010000 o34206 ’ AP #81712, SOOS PACK ACKNOWLEDGE? ? 
03: 001511 BEQ. 240s :NO!! 
033584 11 000012 001504 MOVB SRMDS.GETINX GET RMDS 
03353 00150s MOVB 8200, GETINX+1 
0335 le ISR PC 
= 1 BR 150 ;NO ERROR GETTING RMDS 
Ike 130$:  .WORD 
16 140$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
7 oo0c00 nove 130$, a(SP) 
001340 150s: be #VV, RMDSI ; 1s VOLUME VALID?? 
a ee 
: MEDIA ENABLE 
01 1 MOV SPAKACK!GO,RMCS1O . ACK 
a ibs3 MOVB eRNCS] PU TIN ; SETUP eétfeter AENOEX ee 
JSR See aT GO WRITE COMMAND 
0 BR Bos "NO ERROR LOADING REGISTER 
160$:  .WORD ERROR FROM PUT SUB 
16 o00004 170$: ADD #4, (SP) TRANSFER ERROR TO USER 
113776 033636 000000 MOVB 1608, a(SP) 


: 


+ 
F 
s) 


SEE eee 


A 


AG 


SSR 


aes 


SRE 





++ 


AAT ATATATAlTAtA 
a 


3995 


B 


+ 


A 
- 


88s 


= 
Bes ee 





Peet Gree haa 


ESOR RR 


888 
fe 


3885 


BY 
aes 


Oc 
tantmtatn 


— 
A 


BESO RISRSOs 


pocy i OOO) hy 15:01 PAGE 159 SEQ 0161 


BR 400$ 
180S: 


5 pe EE SE SE EE SS SS 0 SSS 0S 9 a a a a 
> VERIFY PACK ACKNOWL EDGE IF sB1T4 IN TASK 

uy IT4, ;VERIFY PACK ACKNOWLEDGE ?? 

TS 


° 66 
ae ‘ tie FOR STATUS 
JSR PC’ GET GO GET STATUS 
BR ibs NO ERROR GETTING STATUS 
190$:  .WORD ERROR FROM GET SUB 
200$: ADD 84, (SP) * TRANSFER ERROR TO USER 
nove 190$, a(SP) 
210$: JSR PC. ACKSTS GO CHECK ACKNOWLEDGE 
ER hagas 
220$:  .WORD PACK ACKNOWLEDGE ERROR 
2308: TST (SP)+ i STRIP_RE TURN TO SUB AND 
ADD #4, (SP) :T ERROR TO USER 
MOVB 2208, a(SP) 
BR 400$ 
240S: 


5g SE EE SEE SE IESE 0 SE SE 3 9 SS 0 0 a a 0 a a a a a 
j RECALIBRATE DRIVE If BIT ii SET IN PSK AND PIP IS ACTIVE 
J tNOES é: 

GETINX i NAb REGISTER INDEX TABLE 
MOVB 8200, GETINX+1 
JSR GET ;GO GET RMDS 

orbs *NO ERROR GETTING RMDS 
ERROR FROM GET SUB 


BR 
BR 
WORD 
ADD #4, (SP) TRANSFER ERROR TO USER 
HOVB ,a(SP) 
BIT sPIP ,RNOSI 1S PIP ACTIVE?? 
Q 41 tNO!! 
MOV SRECAL!GO,RMCS10;LOAD RECALIBRATE COMMAND 
Ove eRHCS | PUTINX ;AND REGISTER INDEX 
PUTINX+1 
ISR PC. PUT ;GO ISSUE RECALIBRATE 
BR :NO ERROR 
280$:  .WORD ERROR IN REGISTER TRANSFER 
290$: ADD 84, (SP) TRANSFER ERROR TO USER 
MOVB 280S, a(SP) 
BR 400$ 
3008: JSR PC, GETSTS SETUP FOR STATUS 
JSR PC; TIMOUT :WAIT FOR COMPLETION 
5 5 Me AEA AE AE AE AE AE AE SE AE dE A EE AEE a aA ERE EE EEE 
‘VERIFY RECALIBRATE IF BIT 3 SET IN TASK 
BIT #8173, SOOS VERIFY RECALIBRATE?? 
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Apa: 14:07" TEST bee PRART TON SeoULe 


SEQ 0162 


Ew 
8 2 
2g its! 
Ber 
ae Gis 
wn * e 
be cb SB : bs 
bf a. 
ee 
ty +n 
eS zs gies hzzy ¢ 


Shan t2 Ean SSETRES 
Sf ee 
bey 
5 Be be 
SA 


ARTABMRFT PHDRBYBE BVA 


Ok de od od od ond ond ond wd ond od om ond ee 


; TASK/VERIFY DESCRIPTOR 


B 








ret 


034262 


Bit 


es 
fea 


B18737 


012737 


Ce 
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001472 


102574 


MACY11 30(1046) 29-JUL-77 15:01 PAGE 161 
BAD SECTOR MODULE 
-SBTTL BAD SECTOR MODULE 
Pee ee STOVER THE BAO SECTOR TWO MAJOR FUNCTIONS 
ing wale HE mii aaa ae 
t rFoRMATION REQUIRED BY THE MODULE INCLUDES 
“Rebae! RED CYLINDER, 


SECTOR’ ADDRESS, 

19 THE ' 

‘NODULE ¢ CALL IS AS FOLLONS, 

: a 

; 294 ; RETURN HERE IF NO ERROR 

TYPE § , MESSAGE IF BAD SECTOR FILE 
ERROR tren MODULE THE ERROR NUMBER 


;THE MODULE IS INTENDED TO BE CALLED PRIOR TO ING THE 


EDU eLBARGY Wr vilto AV Ne OeeMlore oo it The 
BeyEoes TEST TH THE, APPROVED 98 ASS ED 


A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 


BADSCT: 
TEST “MFDIA ENABLE” TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
a TS 

oP is ;BAD SECTOR FILE IS AVAILABLE 
: fee EE NTE OAD SECTOR FILE PROM Te Lael IRA 
{RECOVER THE BAD SECTOR FILE FROM THE LAST TRACK 
;SAVE THE USER’S PUT BUFFER 

HOV RO,~(SP) ;;PUSH RO ON STACK 
20S: MOV PUTBUF (RO) , BUFFER(RO) 

ADD 82, RO ADVANCE TO NEXT BUFFER POSITION 

CMP #46, RO "END OF BUFFER 

BHIS 7NO $! 
SET RETRY COUNT PUT ourren & REGISTER INDEX TABLE 

NOY RMDAO +O AATING SECTOR ADDRESS 

MOV 8822. , RMDCO DESIRED CYLINDER 


SEQ 0163 





G13 


29-JUL-77 15:01 


SEQ 0164 


PAGE 162 


» PART 2 MACY11 30(1046) 
BAD SECTOR MODULE 


29-JUL-77 14:07 


Pil 


DZRMDA - RMO3 FUNCTIONAL TEST 


;WORD COUNT 
ORMAT 


8<¢C2S8. +1) RMWCO 
SFMT16,RMOFO =; 16 BIT F 
dng BUFFER ADDRESS 


ent GFT 


MOV 


Se 


Gere O1s7a7 bi0000 ol4a0 
012737 100554 001402 


- > OS 
: a5 Z : 3 
foe GLEE i _ E 
en ee 
mots ee Mae 3 oe 
ORE g tial ceed cel tae ts 
ore - ss Scie vas 3 
stettitss 3? = witcg Tat Se Sg2 oo 
BEESeEess : wins! ottaa! oS: faa! pole san 
4 3 gS 


001376 


000100 001340 
000023 
0372be 





004737 036726 


ed ey Ot ee) wed eg oe 
CH et 


Gsesseess ES ef a = 





BR SSSI RUURA CCNA LRA BRH RGSS YS s LPS PTR AURA RA Boe 
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SEQ 0165 


ag 8 e é a3 4 & 
s. £6 Pes. Fe s. £ 
» z i z us 
i - J a ig eS caf Eo e. 5 
Be ~ pe Be nee efe a mE Be ae. Sy e au Be 
Gog Biel oy ctel fey = Sted oy Siiel a= cual § 
= Ob eae i as ok. Meee MS Sage cet 
Ess oul So ceul E ue Ge SE cee 


) 
(SP) 
) 
SP 
STS 
) 
(SP 


bos 
(SP)+ 


t bee 


-o> ~,. 2 2 = 
oc @ Goffe! SEE Sent HSEE G5G Blinn’ £2 Mas’ SEE San! F 
aH 5 eee 3 cn 
> eo owe ee ee “4 “ oO wa wa be 
geeaa98 €@282 &# ee € £2 & BS 


bce | 
es bees Bes | As SRE a eee 
Bf Gbseoes bas ESAs Std 2 Ed EERe EAeSeEses ics bese 


ff EBS ISEKRCE CRAP RS MERLE RE RANT RAE RE AOE N SES Q=UT NO @ 


, PART 2 
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16 
1 
i Ree 
1 
742 000000 
034744 005726 


DO DOODODOOODMMOMOMD OMOMWWOD OOHWOMDODOOWOVOOO®D 
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BAD 1 Fon ROBULE =o 


ADD ;MOVE SP TO USERS ERROR CALL 
000000 tees bcp) *MOVE ERROR # TO USERS CALL 
IMP 215s’ 
16S5$: 
READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 
001376 #RH!GO,RMCSIO.; HEADER AND DATA COMMAND 
Wee PC, PUT’ : CORRENG 
BR 1 RETURN HERE IF NO ERROR 
BR 1 ; AROUND a 
170$:  .WORD : ® GOES HERE 
175$: ADD (SP) . T CAL 
oo0000 MOVB 170$, a(SP) ROVE ERROR USERS EPR ERROR CALL 
IMP 2158 
180$: J PC, TIMOUT sHAIT F FOR ON TO COMPLETE 
43h PC’ GET SraTUe POR READ. OPERATION 
BR 1986S RETURN ER HERE F NO ERROR 
BR 190$ :GET 
185$:  .WORD ERROR & Pre ooes HERE 
190$: ADD #6, (SP) ;MOVE SP TO USERS ERROR CALL 
oo0000 MOVB  185$,a(SP) *MOVE ERROR # TO CALL 
IMP 21 
195$: JSR PC, DTASTS GO VERIFY RESULTS OF READ OPERATION 
BR 210$ RETURN HERE IF NO {ERROR 
BR 205$ :GET 
200$:  .WORD 43 ry HERE 
20S$: TST (SP)+ ;STRIP_RETURN TO SUBROUTINE 
ADD #6, (SP) *MOVE SP TO ERROR CALL 
ooo000 MOVB 2008, a(SP) *MOVE ERROR # TO USERS CALL 
JMP 2i5$ 
210$: BR 240 
21S$: 


AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
THE SECTOR WILL BE RETRIED IF POSSIBLE. 


001340 BIT ,RMDSI ;1S MEDIUM ON LINE ?? 
2 ;YES !! 
;DECREMENT RETRY COUNT 
tRETRY IF COUNT NOT NEG 
EXPIRED ~ SEE IF THE ERROR IS MEDIA RELATED 


001370 BIT + WAS S tHe A DATA PARITY ERROR ?? 
BEQ NO ! 
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' 
> 
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001404 


100SS4 


001404 
036102 


100554 
101564 


J13 
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BAD a cFOR MODULE = 


BIC SPAR, (SP) sYES = CLEAR PAR 
2208: ist 508. THERE ANY ERRORS NOT DUE TO MEDIA ? 
I,-(SP) NGS Ho 
230$ 


chee Sen PeDIA ERRORS 
NONMEDIA ERRORS DETECTED 


it DUE To THe PETA, a WEL SECTOR FILE CAN BE RE 


DETECTED WHILE RECOVER THE BAD SECTOR PILE are 
COVERED F! 
#2, RMDAO ADVANCE SECTOR ADDRESS 
Cope #10. , RMDAO QUIT IF ALL MFG SECTORS HAVE BEEN* 
fea Gee TRIG 
CNPB . » RMDAO iu IF ALL USER SECTORS HAVE 
oy $3 Sons bs COUNT 12 
pon MOV 5008 : NST RETRY FOR THIS SECTOR 
‘ Se 408 oe, THE READ OPERATION 
230$: 
THE BAD SECTOR FILE CANNOT BE READ 
SUB #4, (SP) ;MOVE SP TO ERROR RETURN 
JMP 410s *GO TO MODULE EXIT 
240S: 
THE SECTOR WAS REC I - 
: READ THE USER FILE IF THIS IS THE MFG FILE 
: OR ELSE DONE 
CMPB —s-89.. . RMDAD sWAS THE USER FILE READ ?? 
BLO 260% YES - READ IS COMPLETE 


secroR PILE = sineg 


a 


ELSE 
BIT USE, MF CTOR FLAGS OFF ?? 
BEQ - TES - 144 oe PPOs hiSAOLED 
MOV #002012,RMDAO  ;READ USER FILE 
MOV #3, SOOS * RELOAD RETRY COUNT FOR THIS SECTOR 
JMP 30$ GO READ THE USER FILE 
250S: 
DUT THEO SEETORETLES ous mo ov sta 
MOV RY (ep) + Puen R1 on eT AeK 
MOV #252. Rl Rl = NUMBER OF ENTRIES IN FILES 
MOV #14,R0 *RO = ADDRESS INDEX TO FILE STORAGE 
255$: MOV #-1; MFGFIL(RO) jENTER ALL ONES IN MFG FI 
MOV #-1'USRFIL(RO) ; LL ONES IN USER FILE 
a + OECREMENT 
BNE 255$ :CONTINUE IF NOT DONE 
MOV #6. ,R1 *CLEAR ID, SERIAL NUMBER ETC 





tT, 






+7 


+ 






ATAtATAtA 
T 


xt 





AtATA 
tit 






RIALAP ALATA TATA AT AT ASAT A 





O3S400 012737 177777 001472 


1004 
ces Bee oe 


+ 





. 001474 
ye 001476 
as 

«x 

> 

«x 

035 

*-+ 

y JD 

ie 001376 
VISH 

ic 

pI. 

ix 

ix 

* 

x 

~- 

«x 

> 

x 

> 

«x 

> 

' 

*- 
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BAD SECTOR MODULE 


TOR 
2S6$: th APGFIL(RO) 
CLR USRFIL (RO) 
me ks 
MOV (SP)+,R1 ;;POP STACK INTO R1 
MOV (SP)+,R0 ;;POP STACK INTO RO 


;SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 
MOV #-1, MEDENS 


MOV RO, -(SP) ; ON STACK 
CLR Sho’ ts IS Reors R INDEX 
265S: MOV a /PUTBUE (RO) 
ADD te ; ADVANCE 
CMP ;DONE ?? 
BHIS Po Me 
MOV (SP)+,RO ;;POP STACK INTO RO 
2708: 
300$: 
‘CERIFY TWAT THE DES ’ aT IN TN IME PG BAD SECTOR FILE 
tARD-NOT IN. THES Pe 15,101 ASSIGN ACNE SECTOR IF THE 


;SECTOR IS IN EITHER FI 


;LOAD INITIAL “so, A THE NUMBER OF SECTORS 


MOV ss RO ON STACK 
MOV -(5P) 3 PUSH Rl ON STACK 
MOV Ro’ -(SP) * PUSH Re ON STACK 
MOV Ren (SP) *LOAD REQUESTED CYLINDER 
MOV RMDAO, ASNDA *AND SECTOR AODRESS IN. IN RSS TONED’ STORAGE 
CLR Re ; = 
MOV RMWCO, RO RO = COUNT 
DEC RO ‘CONVERT FROM 2’S COMPLEMENT 
MOV . RL Rl = PER SECTOR 
BIT SaTTi' RCSLO ?T THIS BER SDER ERO DATA COMMAND ?? 
at apes Ri iO PER SECTOR 
30SS: CMP R1,RO° iTS. THERE A SECTOR ?? 
BLOS ids :YES !! 
TST 3 ) RO ZERO 2? 
BEQ 315$ Ss! 
Inc Re + INCREMENT FOR PARTIAL SECTOR 
310$: SUB RI RO ; SUBTRACT ONE SECTOR FROM WORD COUNT 
Inc Re INCREMENT SECTOR COUNT 
31S$: MOV R2, SOOS ;SAVE SECTOR COUNT 


SEQ 0168 
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DZRMOA.P11 29-JUL-77 14:07’ BAO SECTOR, ROBULE = Sis 
§387 035536 3168: 
8389 ;LOAD PARAME AND SEARCH THE MFG AND USER BAD SECTOR FILES FOR 
We PRSI@ED SECTOR AND ADJACENT SECTORS IF THE SECTOR COUNT IS 
035536 012737 100570 036112 MOV SMFGFIL+14,S40S ; THE START MFG 
PONE To pase poorESS STORAGE 
013737 01474 036106 320S: HOV ASNDC, $20 ie COMPARING CYL NOER ADDRESS ae 
035560 ot neste Saeioy MOV Cous ‘ "ios SURBER OF THR, Ses 0 bs ORn 
SETUP FOR A BINARY OE THE. CURRENT FILE FOR THE COMPARING 
* CYLINDER ite CTOR 
036112 3205S: MOV re Dae: gy tore THE BASE ROORESS IN RO 
ADD £187. ; START iainer’ Div Bivibe AT fEbFER 
036106 330: che {hb}, 5208 sDOES, OF COMPARING CYLINDER ? 
ions BHI aude t BRBNCH IF ENTRY > COMPARING CYLINDER 


;FILE ENTRY IS LESS THAN COMPARING CYLINDER (OR TRACK AND SECTOR), 
;50 ADD  aaaae TW TO CURRENT POSITION 





R1,RO 
BR 350$ 
340S: | 
~ sFILE ENTRY Is GREATER THAN COMPARING CYLINDER SO SUBTRACT DISPLACEMENT 
: FROM CURREN POSITION 
BR 350$ 
345S: 
FILE ENTRY EQUALS COMPARING CYLINDER. SEE IF THE NEXT ENTRY EQUALS 
;THE COMPARING TRACK, AND SECTOR. 
po0002 036110 che (RO) ,S30S im THEY EQUAL ?? 
BHI t BRBNCH IF HIGHER 
BR 335 *BRANCH IF LOWER 
350$: 
:THE POINTER (RO) HAS BEEN ADJUSTED. HALVE THE DISPLACEMENT AND 
‘CONTINUE THE SEARCH IF DISPLACEMENT NOT ZERO 
TST Re 31S DISPLACEMENT ZERO 7? 
BEQ 
BSR Ri é SHEL VE THE DISLPACEMENT 
83° Sos ;1S THE NEW POINTER WITHIN BOUNDS ?? 
BLO 370$ *NO ?! 
330$ *CONTINUE SEARCH 





RACK AND SECTOR IS IN THE BAD SECTOR FILE. 
; OR AND START THE SEARCH ALL OVER. 
035656 105237 001476 INCB  ASNDA ; INCREMENT SECTOR 


z 
& 
om 


Fr aR UR RIOR BED ORIGR Ms Sac one S Se eRe MORSE ARTE 





DZRMDA - RMOS FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 168 SEQ 0170 
OZRMOA.P11 29-JUL-77 14:07 BAD SECTOR MODULE 





Bt SOG Heeraz momo? coe BH ynvon fag OK 
105037 001476 CLRB §ASNDA sCLEAR SECTOR AND ADVANCE TRACK 
ais Gees tf Bees oo1477 oes Poe STRACK OK ?? 
5 001476 ate a8 teak TRACK AND SECTOR 
eat INC Renbe TA EREMENT CYLI 
1466 001474 CMP 8822. , ASNDC CYLINDER OK 7? 
BHIS “YES #! 
001474 CLR 
365S: 316 REPEAT SEARCH 
370S: 
: THE CTOR IS NOT_IN CTOR FILES. DECREMENT T 
i NUNBER OF SECTORS 10 ND BACH TE NEXT SECTOR ff THE NUMBER 
1S NOT ZERO. 
036104 DEC 510$ ; DECRENENT NUMBER OF SECTORS TO COMPARE 
036110 Fic oo S ONRERENT THE COMPARING SECTOR 
000037 036110 CMPB s«831. , S308 {SECTOR OK ?? 
036110 ts ee TF aR’ SECTOR 
Lil INCB 530S+1 ‘T 
000004 036111 cre “4 +1 STRACK OK 7? 
036110 ara 530$ tr EAR’ SECTOR TRACK 
106 INC 5208 : INCREMENT CYLINDER 
1466 036106 CMP 8822. ,S20S i CYLINDER OK 9? 
BHIS  375§ “YES !! 
036106 CLR 520$ H CYLINDER 
035566 375$:  JMP 3255 : NEXT SECTOR 
380S: 
i THE ASSIGNED SECTOR (AND REQUIRED ADJACENT SECTORS) are NOT IN 
He eOt TES BEEN EE CRED EL St ASSIGN ite oe OB BND TURN TO USER. 
101600 036112 CMP SUSRFIL+14,S4OS ; TEST ss 
BEQ 400$ . * DONE FP ace USER 
101600 036112 MOV SUSRFIL+14,S4O$ :LOAD BASE ADDRESS 
035544 390$:  JMP 320$ *SEARCH USER FILE 
400S: 
sASSIGN THE SECTOR AND RETURN TO 
001474 001432 MOV ASNDC, RMDCO ;LOAD CYLINDER 
001476 001404 MOV * RMDAO LOAD TRACK ND SECTOR 
MOV (SP)+/Re :sPOP STACK INTO Re 
MOV (SP)+/RI ::POP STACK INTO RI 
MOV (SP)+°RO ::POP STACK INTO RO 
410$: NOP 
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DZRMDA.P11 29-JUL-77 1 BAD SECTOR MODULE 
036100 000207 RTS PC 

; THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 


;RETRY COUNT/ NUMBER OF SECTORS REQUIRED 
;NUMBER OF SECTORS TO COMPARE 


WORD 
* WORD 
espe: HORS COMPARING TRACK AND SECTOR 
“WORD BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 





B14 


BNCTONL TEST, PORT 2 DSO UE, EEaUbiTre 16:01 PRE 170 


SEQ 0172 


CTCR FLAGS 
SS 


STARTING 
IRIE NErOER & DATA? 
WRITE HEADER WORD #1 
(DISABLE) 
: MAXIMUM 
a6 
TF IT IN HEADER 
oT va 
ITE HEADER 
ie id 
ADVANCE SEC 


SECTOR 
MAXIMUM SECTOR ADDRESS 
WORD 
Li 
COUNT AND 


IT FORMAT?? 
TB 


FOR WRITE COMMANDS. THE 
NG oF SHEL WORDS 
ADDRESS STMPO. 
TED FROM RMOC, 


;DECREMENT SECTOR COUNT 


NNT 
1S 
RETURN HERE 
; ;PUSH 
: PUSH 
: PUSH 
PUSH 
ot 


Hes ea ese enen OH OD CM OD OH OH OR OHH OS OCHREHD ESR 


A DATA 
i 
TABLE, BEGI 
THE BUFFER 


~ 
85 

o & 
~~ 


Bes Z = 8B - 
s . & + fas) 
bet sesnametit glist § 25 9 mst 
cee g «| seuusboppaeeetstatc mud wieweeecneatees 
ye = S SeVOCeeeee es sees ooh Secon se eto ceams 
EaaSE 

= 


: BREBEBERESGESUDIEESESREEDERa cobs ccBeeSeEs 


i : 
seoat oes ce dB Betas 
GARE E Re nscopie sea Bae aaa DEES 


ead ad et et ot eg ed ee =< mee ote) 
SSS III OOO0CO 


-SBTTL BUFFER GENERATOR SUBROUTINE 
CONT! 
FROM 


t HEADER 
RMDA 
*CALL: 
(1) 
(3) 
GENSUF 


15S: 


_ 


001376 10S: 
001430 





Pll 
036 
Oe 
fe 
: 


7 O-UMNTMNoORaWo- rO— = - 
iatnaniricattete nena dichaeanan armani aaa 
cB Bo endo . 


C14 


nr Coe eee PART 2 wer AN a a ae Serie 15:01 PAGE 171 SEQ 0173 


qqananaananenane 33 


Q os TART NEXT IF 0 
Beet Be PATTERN COUNT 

eee 30$ RESTART PATTERN IF O 

40$ > CONT INUE DATA PATTERN 

SOs: 

MOV (SP)+,R4 ;;POP STACK INTO RY 

MOV (SP)+,R3 ;;POP STACK INTO R3 

MOV (SP)+,Re ;;POP aries INTO R2 

MOV (SP)+,R1 ;;POP STACK INTO Rl 

sata (SP)+,RO ;;POP STACK INTO RO 

RTS PC 

. WORD ;CYLINDER ADDRESS STORAGE 
65$ . WORD : TRACK, SECTOR ADDRESS STORAGE 





RMO3 aU pl Le Jf PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 172 SEQ 0174 
ll 29-JUL-77 14:07" COMPARE BUFFER SUBROUTINE 


-SBTTL COMPARE BUFFER SUBROUTINE 


Udine Prat BuEOe Ts Tie BUrTER CROR Mice Bate WEG URTTTEN 


AND BUE TWO IS THE BUFFER 10 WHICH DATA WAS READ 








: COMPARISON Brea TOI THe UOER’E ERAOR CALL 
; CALL: 
7(1) ‘JSR PC, CMPBUF 
(2) WORD WRITE BUFFER ADORESS 
*(3) Br aes ER ROOT FURN HERE IF NO ERROR 
7(4) NOP RETURN HERE IF ERROR 
5 (5) ERROR ERROR DEFINED BY SUBROUTINE 
: 79 
CMPBUF : 
* 01004 MOV RO, -(SP) ;;PUSH RO ON STACK 
036362 O10146 MOV R1,-(SP) PUSH R1 ON STACK 
faesee | Bibsue ov Rar =c8p} i Puen BS ON STACK 
036370 005037 036724 Sal oa us *CLEAR CORRECTION FLAG 
BE o36974 g30732 100000 oo1342e ° BY . if sHAS T A DATA CHECK ?? 
en eae ited 000100 001342 IT ,RMERLI s19.17, A HARD ERROR ?? 
: 004000 001360 I ECT, RMOFI sHAS ECC CORRECTION ALLOWED ?? 
Bele eas Gae73? 010000 001360 BI SFMT16,RMOFI 31S THIS 16 BIT FORMAT 7? 
eis 1451 BEQ 80S ?NO !! 
861 CORRECT DATA USING ECC INFORMATION 
Beis 036434 913700 001402 7 MOV RMBAO , RO RO = STAR TING BUFFER ADDRESS 
1 13701 00137e MOV RMECIT, RI *Ri_ = ECC POSITION 
8616 O36444 052737 100000 036724 BIS #81715. 150s “SET CORRECTION FLAG 
B17 MOVE RO TO WORD BOUNDARY OF ERROR BURST 
BE 038701 000020 10S CNP #16. ,R1 ;1$ BIT POSITION > 1 WORD 
Bt j BHIS 20S NO !! 
Bt 12701 000020 SUB #16. Ri ‘SUBTRACT 1 WORDS WORTH 
BE oo00d2 B00 4 RO ADVANCE BUFFER ADDRESS 1 WORD 
BE nye 000001 20S: MOV #1,R2 ihe = BIT POINTER 
2 7 010203 MOV R2’R3 = 8 
Bot ;MOVE R2 TO STARTING BIT OF ERROA BURST 
B62 1 30S: CMP R3,R1 ;1S_R3 SAME AS Rl ?? 
1 BEQ as “YES ! 
ASL SCHIFT. BIT POINTER 
INC R3 ‘INCREMENT BIT NUMBER 
10 000773 BR 30 
l2 012703 000013 35S: MOV #11.,R3 :R3 = LENGTH OF ERROR BURST 


;CORRECT THE ERROR BURST 








Gf 
Sa Ae 


NNNN 
= bet bes Ge 
£ 


BEuS 
ads 
= 


2 


000010 
000010 


may suo) gear Is: PAGE 173 
40S: 


BIT 


wo 
3 
wn Ooo 


8 
se 


BIT 
BEQ 
MOVB 
10S$: SUB 
NOP 
110$: 
MOV 
MOV 
MOV 
MOV 
RTS 
150$ . WORD 


8 
3 SESSSSS BE Rm ame SSeRNS omer see 


a4 


Re, RMECeI 


0) 


= 
% 


ia 
ae. 
woe man 
Bae-e~ 
~“2~a 


- 
xz 
_ 
— 
+ 


ee 


2BPB + 
ponge-€ 
Bed é 
8 z 


R= — 
be 
%3 


FgeG 


;1S THIS BIT-SET IN ECC PATTERN ?? 
ing - nM CORRECT THIS BIT 
sf BIT PRESENTLY SET ?? 


tRESET THE BIT 

;SET THE BIT 

tSHIFT TO NEXT BIT 

;CONTINUE WITH FIRST BIT OF NEXT WORD 


TYPEOUT 


;ST' TA F 
TYPEOUT 


:ST TA F 


; WORD 
; SP TO USER’S ERROR CALL 
;WRITE ERROR NUMBER IN CALL 


CORRECTION FAI 
a ECC CORRECTION USED 7? 


' 
ECC CORRECTION F 
ROVE SP 


PILED 
TO RETURN IF ERROR 


;ECC CORRECTION FLAG 


SEQ 0175 


F14 


SEQ 0176 


fz a 
" ~<a % 
ts gett oie Bees 
de SEER as ZEEE 
| & 0 someks ie 
aw nue fas 
oe 
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4 - i seats e Sse 
qo 3 Gee 8 Toews Bs ese 
i = ra ¢ savdbbstaeen= eens » 
gb 
a 8 = Bt BESBEBSSREBESRSSEOSE 
ate = wo _ a 
ety zee 3 ty “ew Pr 
: 
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a OTE 
5 ny 
oe SESS eae So 
iV—_— 
E. saesaenaaennananee 
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: : SF uae 0 sr 


-SBTTL GET SUBROUTINE 


Bren ie Bi it ee Ne IR THE CORRESPONDING 


cee to” 
our, Bren ngs a LOCRTION J IN 
: THE REGIS 
if 


ant AE Brians 
ae Temninates BEEN LOADED WITH REGISTER INDEX 


ca) AVAILABLE FOR USE. (NOTE THA 


Reta hor” ola REET Beane cowesraroin 





REET ESET ENESERN ENS ENEPEPE EPS EP SSRI SS REAR SRS EASE ESERESEE 


a RETURN HERE TE Harv ERROR FOUND 
ERROR SURO TRES ERROR NUMBER 
037012 00240 GET: NOP 
4 #4, (SP) AR NUMBER IN USER’S 
Hears Biter i 
1 RO, -(SP) ss ON STACK 
GigiNe NOV At 3p) + yen fe ON 2 
my eis) Hine as oy ea 
rte MOV Ra -f8B} *:PUSH RY ON 2 
1 MOV ERRVEC,-(SP)  ;; PUSH ERRVEC ON STACK 
1 MOV ERRVECS ,-(SP) ;;PUSH ERRVEC+2 ON STACK 
i NOV Re 
1 MOV aT NX: RY 
1 MOV Cc ;SETUP FOR TIMEOUT 
1 MOV SPR, ERRVEC#E 
1 1S: MOV (RO), $TMPO ;GET “NED” STATUS 
MOV RMCS1(RO)(STMP1 :GET “DVA" STAT 
BIT 80VA, STMPI ;DEVICE AVAILABLE? ? 
I BNE 3$ *YES!! 
O76 ADD #4 16(SP) s WRI ERROR NUMBER IN USER’S 
Hi 2 nove ail ,16(SP) : 
10033 ss! vest! 
11401 Move -« (R4) RI *R1_= REGISTER ADDRESS 
! 177700 BIC SCIDXNSK, Rl ‘CLEAR ANY SIGN EXTENSION 
Lies MOVE (R4)4,R3 :R3_= STORAGE ADDRESS FOR REGISTER 
177700 BIC SYCIDANSK, RB ‘CLEAR ANY SIGN EXTENSION 
11113 MOV (RL), (RB) ;READ REGISTER 
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14:07 GET 


3 
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z 
SE: 


(SP)+, (SP)+ s RESTORE STACK 
seth, DIS RGAE ™ 
) ae 


“CLEAR REMAINING STORAGE 
: LOCATIONS 
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eaeg 8 
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Br 


sSEEERSEESS EL 
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Raieaw 
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4 
w 





T14 


- RMO3 T TEST, PART 2 MACY11 30(1046) -77 15:01 PAGE 177 
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SEQ 0179 
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oe sie i en ee 
eo ee 
: ae ae : | auueBee ntllissid ci Si, boy 
ei ‘ PoreieREr SBBBBBBREBBEBBESUSEanetcsicaE, BEES 
a EFda 
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OZRMOA.P11 JUL-77 14:07’ But COBROUTINE. — 


ry ISESSERNEE'? woe sri TAD Eh VE 
MOV (p}e Ra HPO eTACk NTO at 
MOV ($P)+, R3 POP STACK INTO R3 
Mae SPS Hs: ataee INTO BF 
V (SP)+,RO POP STACK INTO RO 





MO 
RTS PC t RETURN 
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DZRMDA - RNO3 FUNCTIONAL TEST, PART 2 MACYI1 30(1046) 29-JUL-77 15:01 PAGE 179 SEQ 0181 
DZRMDA.P11  29-JUL-77 14:07 SIZE CLOCK SUBROUTINE 
.SBTTL SIZE CLOCK SUBROUTINE 
SIZCLK: 
Tae 000004 MOV Cy5(SP) ;;PUSH ERRVEC ON STACK ot ened 
1378 popere 000004 nov #1$ we ;SET UP bp Rt Pour 
Nee Raa BOis06 ney oF CARVE ;LOAD ADDRESSES FOR KW11-L 
i 1 MOV #100 T 
141734 TST SCLKAOR TEST FOR KWli-L PRESENT 
* 1S os (SP)+, (SP)+ pS = 
I ooo004 MOV ERRVEC IST UP FoR BUS TIMEOUT 
1 reas 001500 MOV #172540, CLKADR LOAD ADDRESSES FOR KW11-P CLOCK 
000104 001502 MOV #104, cLKVCT 
141 TST ;TEST FOR KW11-P PRESENT 
BR 3$ YES - KW11-P IS PRESENT 
2s: CMP (SP)+, (SP)+ *RESTORE SP 
062766 000002 O00004 ni ADD #2,4(SP) *MOVE RETURN TO ERROR 
012637 000006 : MOV (SP)+, ERRVEC+2 -POP STACK INTO ERRVEC+2 
01°63? 000004 Hoy (SP)+, ERRVEC . yes ay sTAGK cK INTO ERRVEC 
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-SB8TTL TIMEOUT SUBROUTINE 


SSO Me, anlcH EVER OecURRS FIRST. AND THEN RETURNS. 


i] 
;CALL: JSR 





J PC, TIMOUT 
: 229 RETURN HERE 
TIMOUT: - 
MOV ORI’ =P) t PUGH RL ON STACK 
MOV {3} + PueH Re ON aT ReK 
MOV ERRVEC,-(SP)  ;;PUSH ERRVEC ON STACK 
HOV $2.=(SP) i; PUSH C+2 ON STACK 
as, C ;SETUP FOR IMEOUT - 04 TRAP 
HOV SBASE wee 
2 MOV CLO R Re att CK RODRESS 
36 MOV . Re . OF CLOCK CYCLES 
BS 1S: CMP = s«R1,, #172540 sKWLI-P CLOCK?? 
. : BNE es sNO?! 
89 MOV #1,2(R1) *SET COUNTER 
2S: MOV eBiT2!BIT0,(R1) ;START COUNTER 
3S: MOV (RO),-(SP) ;GET STATUS 
BIC #tC<RDY!GO>, (SP)’ 
: CHP SR0Y, (SP)+ ;RDY=1,G0=0"? 
Bat BIT #8177, (R1) *TIMER DONE?? 
891 BEQ 3$ NO?! 
1 DEC Re DEC NUMBER OF CYCLES 
1 BNE Is *CONTINUE IF NOT DONE 
ie 4g: CMP (SP)+, (SP)+ sADJUST STACK 
891 000004 ADD #4, 12tSP) *MOVE SP TO USER’S CALL 
1 000007 MOVE #7, 91 2( SP) *WRITE ERROR NUMBER 
000002 SUB #2) 12(SP) 
SS: 
1 MOV (SP)+ C+2 »:POP STACK INTO ERRVEC+2 
153? Heerey MOV (8p}3" ERRVEC ;;POP STACK INTO ERRVEC 
12602 MOV (5P)+'Re *:POP STACK INTO Re 
8925 12601 MOV (SP)+;R1 *:POP STACK INTO RI 
g3e8 012600 MOV (SP)+)RO POP STACK INTO RO 
pat 000207 RTS PC ‘RETURN TO USER 
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OZRMOA.P11 29-JUL-77 14:07 PRIMARY ERROR CHECK SUBROUTINE 


-SBTTL PRIMARY ERROR CHECK SUBROUTINE 
‘THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STAUTS IS VALID AND 
ATUS CHECKING SHOULD BE PERFORMED. THE 


Al 
.CURRECT UNIT IS , THE UNIT SELECT BITS OF RMCS2 
{(BITs 0-2) EQUAL THE ISP eine tedtéo 


- SELECTED UNIT IS AVAILABLE, I. c., DVA (BIT 11 OF RMCS1) IS SET 
‘eno ne tat l2 OF RMCS2) IS RESET; 


v 
ay 


Be 
— 


.LAST COMMAND WAS COMPLETED, I.£., THE MASSBUS CONTROLLER IS 
READY (BIT 7 Hae TUE Gb BIT 15° RESET (BIT O OF RMCS1) OR THE 
;DRIVE READY BIT (BIT 7 OF RMOS) IS SET. 

‘he., .NO PARITY TY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 


iTy ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
$f. E., PAR = 0, OR, = DPE = 


{THE SUBROUTINE ASSUMES THAT: 


TATUS BEEN IN THE feels INPUT BUFFER 

7 PARTI trast ness RD. RMS STORED IN THEIR 
OE ORRESPONDING "LOCATIONS OF THE “fer SPEER 
. (SUNIT) CONTAINS THE DRIVE NUMBER 
THE SUBROUTINE IS CALLED AS FOLLOWS: 
*(1) JSR PC, PRIERR 
: BR 274 RETURN HERE IF 
$ oR T T T 
: ISR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 229 RETURN HERE IF NO MORE ERRORS 
PRIERR: 
;CLEAR USER’S ERROR CALL 

962716 900004 ADD #4, (SP) ;MOVE (SP) TO ERROR CALL 

1 cLRB acSP) * CLEAR NUMBER 

162716 000004 SUB #4, (SP) "MOVE (SP) TO NO ERROR RETURN 
-REPORT AN ERROR IF THE UNIT 

013737 001336 ool1l4e ’ MOV RNCS2I Foon ‘ ; LOnRGeT UNIT SELECTED? 

77770 OO114 BIC a CUNTISK SEOORT 
1 0011 MOV SUNIT :GO0D DATA FOR TYPEOUT 
0011 BIC at SGDDAT’ 
123737 001140 001142 CMPB  SGDDAT,SBODAT | ;COMPARE EXPECTED AND RECEIVED 
j DRIVE NUMBERS 
415 BEQ 1$ * YES! 


FERRERS CEEE RCC CUFETECES Cs CeEERCES CEEEEES ESTE SERA 





ae 
2 
ES 
3 
cS 





SEQ 0184 


N14 


29-JUL-77 15:01 PAGE 182 


PART 2 MACY11 30(1046) 


| 
\ 
OZRMDA - 


RMOS FUNCTIONAL TEST, 


PRIMARY ERROR CHECK SUBROUTINE 


29-JUL-77 14:07 
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TO RETURN FOR ERROR 
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Tele _L 
i] seme 
i 


fe ie Be eee eae Cer SS oss it saa 
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Pl 


WWOWWOWWD DOV VVOVOVVWV OVO VOVVWVWOVVDVOVOOWOWOWVDWWWVWOWWWWWWWW 
SFHESSASSRVERSEREBBVVERPORVssreHnron-oSSVFREDES 


oe Mee PART 2 RET IR AF has BM deg PAGE 184 SEQ 0186 


- SBTTL SECONDARY ERROR CHECK SUBROUTINE 


EE Sa ae SECONDARY ERRORS 
N.T NECESSARILY Tries suck WITH THE OPERATION 


: oT TNE JOENTIFIES SUCH HAN ERROR, IT MOVES 
aed. Ait Pe itd der hari O 


vi 
— 
3 


URNS T' ie ee ES ee arine ele 
“CALL: JSR PC, SECERR 


: BR 974 RETURN HERE I 

: NOP T 

BRROR ERROR NOMEER b REPORT FR 

: JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR ps, 
; 229 RETURN HERE IF NO MORE ERRORS 


;NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
; INPUT REGISTER BUFFER. 


040640 SECERR: 


. - PXXXSEAKELSSASELSKE RK LHA BH EASRESKAE REELS LRA KRAEMER RELA ERA R EEE 
STORE FUNCTION CODE AND CLEAR USER’S ERROR NUMBER 


040640 013737 001376 o44SsO0 MOV RMCS10, S1S$ i STORE FUNCTION CODE 

O40646 042737 177701 O44S00 BIC etC< FOIFLIFetratr> ol 

040654 062716 OD0004 ADD #4. (SP) ; ) TO ERROR CALL 
105076 o00000 CLRB © a SP) R 

040664 162716 000004 SUB #4, (SP) t MOVE (SP) TO NO ERROR RETURN 


6-3-3 36-36 36-36 Sb SE JE SE JE SEE SE SE EE JE SE JE EE SEE 9 HE HEE 


? ANECK SECONDARY ERRORS COMMON TO ALL 
; REPORT IF NOT PEARY IF DRY = 0 
001340 IT aOR, ROS Dave BeApy? 


“REPORT ERROR IF GO BIT IS NOT RESET 
001326 §5: BIT #GO,RMCSII ;60_BIT RESET?? 


7 ‘BAD bata FOR TYPEOUT 
001140 ny scopat ;GO0D DATA FOR TYPEOUT 


Siero ipa, omen 
1024 BNE 
ed 1 001142 HOY RDS oo i bata FOR TYPEQUT 
14 isp booze 1140 MOV #DRY ;GO0D DATA FOR TYPEOUT 
000004 ADD #4, (SP) 
il 600019 000000 move #10, a(SP) ;ERROR NUMBER 
162716 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
004736 JSR PC’ 9(SP)+ *REPORT NOT READY 
162716 000010 SUB #10, (SP) ;RESTORE (SP) TO ERROR N 
000001 


a ae 
: 
: 
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SEQ 0191 
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;REPORT ERROR IF ROE ts SET AND DATA ERRORS ARE NOT ENABLED 
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PUSERS. ERROR CALL 
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;REPORT ERROR AND RETURN 
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9596 043406 022737 000030 044500 CMP #SEARCH, 51S$ ;WAS DATA TRANSFERRED? ? 
9597 043414 103402 BLO ;YES!! 
gag 043416 000137 O44444 JMP 3555 
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SECONDARY ERROR CHECK SUBROUTINE 


BYE 3482.) , S108 een _ 
310$: INC iI 
Sue . , 510 EcTOR 
, 
31SS: CMP , 85 ; TRACK OWED?? 
es ong 
INC fineRenenT CYLINDER 
as ;ADJUST 
-TRY AGAIN 
-REPORT ERROR IF “LBT™ IS NOT CT 
3008: CLR T GOOD DATA FOR LBT=0 
CH #823. ,SO0S SHOULD LBT BE SET?? 
Bit SIA, RMERLI i HBS IRE SET 
MOV T T TA aoe = 
325S: HOY rele T £3 Gonp Fix tet 
ae T’ T  ;IS_LBT CORRECT?? 
7 ep) ;YES!! 
#17, a(SP) -E 
HM } Ne opt RE TURN FOR ERROR 
PC’ a(SP)+ REPORT LBT IS WRONG 
#10, (SP) RESTORE (SP) 


IF TS INCORRECT 
SCODAT ;SET Fi 


AOE=0 
SIAE, RMERIT WAS “IRE” DETECTED?? 
;YES-"AOE” SHOULD BE ZERO. 
#823. ,S00$ ; SHOULD BE SET?? 


YES #3 
SHAS THIS READ OR WRITE CHECK ?? 


NO! 
WAS AL DATA TRANSFERRED ?? 
SGDDAT see in AOE 


aoe 
ro 


33S: ‘ =) 
1 CT iClear B re 
340S: 1S sont : BAD Bata FOR TYPEOUT 
1 CAOE, SEODAT 
SGDDAT;SBODAT  ;IS AOE CORRECTY?? 
345$ :YES!! 


Re 


29 
~9~ 


;ERROR NUMBER 
STONE 9 ro SeTumel COR ERROR 


REPORT RESTORE’ (SP) 


areas 
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. BY 
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ERROR CALL 

2 
;MOVE (SP) TO ERROR RETURN 
;MOVE (SP) TO NO ERROR RETURN 
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DZRMDA.P11 . 29-JUL-77 14:07 DEVICE SELECT SUBROUTINE 
9808 O44702 012637 000006 MOV (SP)+, ERRVEC+2 --POP STACK INTO ERRVEC+2 
9809 044 012637 000004 MOV (SP)+/ERRVEC  ;:POP STACK INTO ERRVEC 
9810 O44712 000207 RTS PC EXIT 


SEQ 0201 
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RMO3 a ge My 1 PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 200 SEQ Oede 
1 29-JUL-77 14:07" SEEK STATUS CHECK SUBROUTINE 


-SBTTL SEEK STATUS CHECK SUBROUTINE 


oO: 
— 





THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 
Heat SUBROU RETURNS TO THE CALLING ROUTINE IF AN N ERR ERROR 1S DETECTED 
EVIE CORDED THE SEEK ATER TATU IS ORR OREEKEDY as Fore FOLLOWS: 
wp 
ua JSR PC, SEKSTS 
: 294 RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
: JSR PC, a(SP)+ ERROR ee BEAR Dobe Pee on CHECKS 
: 299 RETURN HERE IF NO MORE ERRORS 
044714 SEKSTS: 
;CLEAR USER’S ERROR CALL 
ow7 14 000240 NOP yee ay te 
pia7 38 Oper te erRe a(SP) OR PRROR NIRGER _ 
044726 «162716 #4. (SP) “MOVE (SP) TO NO ERROR RETURN 
044732 005037 CLR 300 CLEAR ERROR FLAGS 
ia TRB MESSRUS CONTROL BS PORT WD ores Oe 
044736 032737 000010 oo1342 ’ H WPA R, RMERLI ee, ITY ERROR DETECTED?? 
746 000010 001370 I? , RMER2I TO CONTROL BUS?? 
ros bai0s0 Be Ot Me LT 
; REPORT REGISTER PARITY ERROR VIA USER’ 5 ERROR CALL 
GATS BE BUN couse See l sooonr iReeee Stan 
062716 000004 ADD #4. (SP} :MOVE STACK TO USER’S ERROR 
774 il 90050 oo0000 mOVB «#50, a SP) iE #50 
16 SUB a2, (SP) : SP TO RETURN FOR ERROR 
736 JSR PC’ 3(SP)+ 
045010 162716 000010 SUB #10, (SP) sRESTORE STACK 
045014 000437 BR 3$ IRE SHOULD BE ZERO 
DETERMINE THE VALUE OF “IAE™ STATUS BASED ON TRACK,SECTOR AND 
; {CYLINDER RODRESS USED DURING SEEK OPERATION wie 
meee gui at 
1432 001466 CMP RMOCO, #822. *CYLINDER > 8227? 
101 BHI 3s *YES!! 
042737 046152 BIC 8SKI,300$ :CLEAR SKI ERROR FLAG 
i 76? 001404 000037 CHP RHOAO, 831. ; SECTOR > 31?? 
123727 001404 000035 CMPB «a RMDAO, #29. SECTOR > 29 77 
045066 101404 BLOS 6 aS :NO!! 
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SEQ 0203 


30( 1046) 


1 
S 


PART 2 MACYI 
SEEK 


A es FUNCTIONAL TEST, 
Pil 23-JUL-77 14:07 


+60 CHECK NEXT ERROR 


aFMT16, RMOFO 


001140 


MOVE - TO RETURN FOR ERROR 
REPORT INCORRECT IAE 
;RESTORE (SP) 


ERROR SI 


ORREC 


2a5unas 


IS SET 
2? 


SAL TD 
IVC ERROR?’ 
XPECTED STATUS 


NO 
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;RECEIVED STATUS 


“Ges 
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Rae 


;MOVE SP TO USER’S ERROR 


;ERROR 60 IF VV = 0 
61 
SP 
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51S: 


acess 68 
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;RECEIVED STATUS 
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- RMO3 FUNCTIONAL TEST, PART 2 macy a as SEQ 0205 
Pll 29-JUL-77 yey’ Mar eat CHECK eEUBROUT INE : 
O4S64% 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
SR PC’ a(SP)+ ‘REPORT ERROR VIA USER 
16 000010 #10, (5P) 

-REPORT AN ERROR IF “PIP™ IS STIL SET AND SKI NOT SET 

PsehG rte 001340 Ios: 4 if P, RMDSI re "PIP" STILL SET?? 
040000 001370 BIT #SKI, RMER2I tps “SKI"SET?? 

5700 4064 11$ YES-DONT REPORT PIP 


RMOSI , SGODAT EXPECTED STATUS 


#PIP T 
CF ,SE00RT | ;RECEIVED STATUS 
SP) : (SP) TO ERROR 
a(SP) iL R 
S 


Payette ts =} 
g 


;MOVE SP TO RETURN FOR ERROR 
;REPORT “PIP™ SET AFTER SEEK 
;RESTORE (SP) 


-_ 
o 


syunneenunenaanans 2 
ee 
Fee 
: 
SeuesBESE2 
RE 


; 
Ba5 
55 
3 
2355 


*REPORT AN ERROR IF “ATA” IS NOT SET 


10000 100000 001340 11S: BIT 8ATA, RMDSI sas, “ATA” SET 2? 
10001 BNE 13$ 
1 ony ERSTE STATUS 
1 00 BIS #ATA! MOL! DPR! DRY 
1 i 001142 MOV RMDSI ieCeIVED, STATUS 
1 ADD #4, (SP) (SP)_70 ERR ERROR 
i 1 6 — COB” #37 (SP) SE TOEN FOR ERROR 
| lal 
i aia ApS o4e ISR PC; a(SP)+ lads NOT SET DURING 
10010 O46024 162716 000010 #10, (SP) TESRESTORE (SP) 
iol 046030 000240 ROP om wf 
' 
1001 -REPORT ERROR IF VOLUME VALID IS RESET AND Iyc IS ZERO 
10014 O46032 032737 000100 001340 13$: BIT 8VV, RMOSI IS W=0? 
1001 Bf 901030 BNE 14S :NO!! 
1 iB 010000 001370 BIT SIVC, RMER2I 1S IVC ALSO O 2? 
1001 do1ge% BNE 14§ *NO - IVC IS SET 
1001 i 001340 001140 MOV RMDSI,SGDDAT § ;EXPECTED STATUS 
1 052737 000100 40 BIS #VV. SCDDAT 
1 13737 001340 001142 MOV RMDSI,SBDDAT § ;RECEIVED STATUS 
1 ests 000004 ADD #4, (SP) 
1 il 000064 oo0000 MOVB #64. a(SP) ERROR #64 
1 16 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
1 736 JSR PC’9(SP)+ 
1 162716 000010 SUB #10, (SP) 
1 000240 NOP 
i 14S: 
1 ;MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
t eat ADD 84, (SP) ;MOVE (SP) TO ERROR CALL 
i 105778 urna STB a(9P) HAS ERROR CALLED?? 
1 062716 000004 ADD #4, (SP) i NOVE TO ERROR RETURN 
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OZRMDA - RMOS FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 204 SEQ 0206 
DZRMDA.P11 29-JUL-77 14:07 SEEK STATUS CHECK SUBROUTINE 

in 046142 000402 BR 16S 

10037 O46144 162716 O00004 15$: SUB #4, (SP) ;MOVE (SP) TO NO ERROR RETURN 

i 046150 000207 16S: RTS PC ; RETURN 

i : 046152 000000 300$: .WORD O ;ERROR FLAGS 


OZRMDA - RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 205 SEQ@ 0207 
DZRMOA.P11 29-JUL-77 14:07 CONTROLLER CLEAR SUBROUTINE 


tate .SBTTL CONTROLLER CLEAR SUBROUTINE : 
t ;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
10045 :AND DRIVES, THEN SELECTS THE DRIVE. 

ti “CALL: JSR PC, CNTCLR 

1 : BR 294 RETURN HERE IF NO ERROR FOUND 
10048 : RETURN HERE IF ANY ERROR FOUND 
10050 : ERROR SUB DEFINES NUMBER 

19081 : 9 

1 

1 Oe 154 CNTCLR: 

1 154 01004 MOV RO, -(SP) ;;PUSH RO ON STACK 

1 1 10146 MOV R1;-(SP) PUSH RI. ON STACK 

1 1 1 00000 MOV ERRVEC -(SP) *:PUSH ERRVEC ON STACK 

1 1 1 HO000E MOV C42, -(SP) --PUSH ERRVEC+2 ON STACK 
10056 Pele alee ee MOV »ERRVEC SETUP FOR BUS TIMEOUT 

{ 0 { NOY RO ;RO=UNIBUS ADDRESS. 

1 1 alsa} 000010 MOV aCLR BNCS2(RO) CLEAR MASSBUS 

i { 1 arch Nove i ;SELECT DEVICE 

1 000412 BR 208 

bbe Oueeae Gosres 1p (8 BHR LOSE)” «= EROVE'SP'T0 USERS ERROR CALL 

1 D46e40 11 eure eee MOVB #7, J10(SP) “WRITE THE ERROR NUMBER 

: er 162766 000002 000010 ae SUB #2) 10(SP) 

1 012637 000006 "MOV (SP)+, ERRVEC+2 -:POP STACK INTO ERRVEC+2 
1 Ovbgbo Oicb37 000004 MOV (SP)+;ERRVEC  ;;POP STACK INTO ERRVEC 

1 4 012601 MOV (SP)+/R1 :POP STACK INTO RI 

1 Ovbeb6 012600 MOV (SP)+'RO :POP STACK INTO RO 

: 70 000207 RTS PC 
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DZRMOA.P11 29-JUL-77 14:07" CONTROLLER CLEAR STATUS CHECK SUBROUTINE 


10076 .SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 
1 Seis VERIF Re Ve™ Oth SERLGT eS I ZED BASED ON 
Ln078 islet ty cy ON HOLD OR IN BIT 
1008} suse Rooke BECAUSE THE ERROR MESSAGES A BeséB” ON THA CONDITION. 
10083 ; STATUS serTent TO THE DEVICE IS NOT CHECKED. IN PARTICULAR, THE 
10064 “FOLLOWING STATUS BITS ARE NOT CHECKED: 
ier ; ATA,ERR,PIP,MOL,WRL,LBT,PGM, VV,OM, UNS, SKI, DVC 
i * 
1oos0 *(1) ‘JSR PC, CLRSTS 
10091 : 274 RETURN HERE IF NO ERROR 
1 : RE T REPORT AN ERROR 
: : RRCR ER NED BY SUB 
: SR PC, a(SP)+ FOR ERROR CHECKS 
: : 29 TURN HERE IF NO MORE ERRORS 
! 046272 CLRSTS: 
1 ;CLEAR USER’S ERROR CALL 
10100 046272 062716 OO0004 #4, (SP) ;MOVE SP TO ERROR 
101 obe7e 1 000000 CLRB «a SP) * CLEAR NUMBER 
101 162716 SUB #4, (SP) : BACK TO NO ERROR 
101 “REPORT ERROR IF RMCS1 NOT INITIALTI 
101 013737 001 001142 4s: MOV RMCS1I,SBODAT  ;VERIFY RMCS1 
101 4 oie? 3? i 00114 BIC #SC, SBODAT :T SPECIAL CONDITION 
101 1 1140 MOV 8DVA'ROY,SGDDAT ;EXPECT DVA & 
10! 023737 001140 001142 CMP SGDDAT,SBDDAT  ;COMPARE EXPECTED, RECEIVED 
101 41 BEG cs *BRANCH IF E 
101 900004 #4, (SP) : SP TO *S ERROR 
1011 il 126 000000 MOVB #126, a(SP) ITE ERROR NUMBER IN CALL 
10111 S21 7b SUB 42, (SP) * MOVE SP TO RE TURN FOR ERROR 
Iii Bibses e716 coonx0 Ok AL 
10115 -REPORT ERROR IF RMBA NOT RESET 
10116 905037 001 gs: CLR T sVERIFY RMBA IS ZERO 
101 1 001 001142 MOV I, SBODAT 
1011 001413 BEQ 7§ ;BRANCH IF 
101 6 ADD #4, (SP) *MOVE SP TO USER’S ERROR CALL 
101 il 000127 00000 MOVB 8127, a(SP) *WITE NUMBER I 
10121 14 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
10122 O46420 004736 JSR PC’ a(SP)+ REPORT ERROR VIA USER 
tts puplge 16 000010 sug #10, (SP) *MOVE SP BACK TO NO ERROR 
101 -REPORT ERROR IF RMCS2 NOT INITIALIZED, 
101 Ou630 013737 001336 oO01142 7S: ty RNCSeI ,SBODAT 
16 a CLR -(Sp) et oe 8 ft SPs 
it tie ues ie eile eA ee ee 
tise Sueuee 16 000100 BIS #IR, (SP) 
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SEQ 0211 


THe SET SUTFER. ERRORS ARE 


THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 


REPORTED TO fre USER VIR The UoER 


-SBTTL PACK ACKNOWLEDGE STATUS CHECK 
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;WAS UNS SET?? 


NO?! 


SUNS, RMER1I 
3s 


BIT 
BEQ 


;REPORT AN ERROR IF “UNS” IS SET 


032737 o40000 o01342 ” 
001424 


10372 047336 
10273 047344 


DO1 


SEQ O2l2 
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EXPECTED STATUS 


;RECEIVED STATUS 
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Ee 
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BRSSSmAeS ENgSEegemaaS 
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013737 OOl3e 001142 


1, RMERII 


fseiftes 


020000 001342 


oe 
sonerannyers 


ppepeess 
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Scie 


3 
aie 
: 
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oococ4 Oo0134e2 
001342 
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001342 


seerer 


= ba 


aarassiss 


O-UMTiNwr. woo 
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S88sssss 


;WAS ILF SET?? 
;NO!? 


ILF_ERROR 
»RMERLT 


SILF 


7$ 


BIT 
BEQ 


;REPORT ANY 


7636 032737 000001 ool3z42 ’ 


04 
047644 001424 


—"t 


end ond cay eh ond eS wisdsbabababababatelosebebekakokebehakenekes ge Fe dG ed ed ed ad ee ed ed nd ed ed ed 


pee Pit we oe Me PART 2 peel 20 106) Eat ect el PAGE 211 SEQ 0213 


047646 OO134e 00142 MOV RMER1I,SBDDAT #;RECEIVED STATUS 


013737 

ie es Bis Ge Ee oe 

6 #4, (SP) ;MOVE SP TO ERROR CALL 

047674 112776 O0004% 000000 MOVB 846. a(SP) ‘WRITE NUMBER OF ERROR IN CALL 

ipaa o77ue 162716 oo0002 SUB #2, (SP) “MOVE SP TO RETURN FOR 
1 7706 004736 JSR PC’ 3(SP)+ *REPORT THE ERROR VIA 
i a 162716 000010 SUB #10, (SP) *MOVE SP TO NO ERROR RETURN 
1 7716 7$: 
10340 
1 ; AUGMENT ofis TURN IF ERROR WAS F 
1 16 062716 000004 #4. (SP) ; MOVE oN ERROR CALL 
10943 7722 105776 oo0000 ISTB acSP) SHAS ERROR FOUND? ? 
1G 77 062716 O00004 R00 #4, (SP) YES - MOVE TO ERROR RETURN 
1a au ae iberig 513 oo0004 gs Sug #4, (SP) ;MOVE SP TO NO ERROR RETURN 
10398 7744 000207 RTS PC 
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Y11 30(1046) 29-JUL-77 15:01 PAGE ele SEQ 0214 
TeRATE STA a 


TUS CHECK SUBROUTINE 
-SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 


STING THE STATUS STONED IN SHE Ce? BUFFER 


; CALL 
(1) JR PC, RCLSTS ;CALL, SUBROUTINE 
re RIES TE 15 ESE, ce 
: ae PC, a(SP)+ BRP ORCh 16 cus FOR hore POROR CHECKS 
; 299 RETURN HERE IF NO MORE ERRORS 
RCLSTS: 
;CLEAR USER’S ERROR NUMBER 
CLRB 5(8p) 


;CLEAR USER’S ERROR CALL 
#4, (SP) ;MOVE SP BACK TO BRANCH 


;SEE IF “PAR” OR “ILF™ OR “OPI™ OR “IAE” IS SET 
BIT BOPI!PAR! ILF! IRE, RMERII 
BEQ 4S ;NONE ARE SET - GO TO NEXT CHECK 


; REPORT fit Soe —_ BUS PARITY ERROR, I.E., 


"PAR" = | “0PE" = 
BIT aPAR, RMERLI HRS “PAR” SET?? 
ai S5PE, RNERZI WAS "DPE" SET?? 
BY menif scoar ecards sta 
BIC SR OO OAT 
ADD Q ERI, OE SP smece Ler STRROR CALL 
move as0 3 Spi SURITE ERROR NOMGERLIN IN CALL 
SUB 82, (SP) *MOVE SP TO RETURN FOR ERROR 
JSR PC’ 3a(SP)+ GO REPORT 
sug #10, (SP) *MOVE SP BACK TO BRANCH 

1S: 

;REPORT ANY “ILF™ ERROR 
BIT SILF ,RMERLI sHAS “ILF" SET? 
MOV RMERII,SGDDAT EXPECTED STATUS 
BIC SILF, SGDDAT 
MOV PHERIT SBDDAT  ;RECEIVED STATUS 
ADD #4. (SP) {MOVE SP_TO_USER'S ERROR CALL 
MOVE #71, a SP) *WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) ;MOVE SP_TO RETURN FOR ERROR 
JSR PC’ a(SP)+ *REPORT ERROR VIA 
SUB #10, (SP) *MOVE SP BACK TO BRANCH 
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032737 000100 001340 ete vv, RMOSI sDID, "vv" N20P?? 
1 Ff I A 
bigs, uma corso eesmerer 10 RE A PS 
> 001340 001140 MOV RMDSI,SGDDAT =; EXPECTED STATUS 
re Pave He Hoy T  ;RECEIVED STATUS 
16 ADD e4.tsp) ;MOVE SP TO USER’S ERROR CALL 
18776 900101 000000 MOVB - 8101, a(SP) * WRITE NUMBER IN CALL 
1 SUB {3 . *MOVE SP TO RETURN FOR ERROR 
Weare 000010 aT Bidet ;MOVE SP BACK TO USER’S BRANCH 
000240 NOP 





10S: 
REPORT AN ERROR IF ATA IS NOT SET 
100000 001340 BIT ATA, RMDSI WAS ATA SET DURING RECALIBRATE?? 
1024 BNE il : YES! ! 
aS ABH BRL at Say sesretren stems 
14 013737 001340 OOL14e MOV RMDS{,SBDDAT § ;RECEIVED STATUS act 
1? FBIREE THSTAE BRM conmco © ‘Haslem RVR "Es Rabe HOE 
1 1 ooo002 SUB , (SP) 
1 1 JSR 3(SP)+ 
10544 051042 162716 000010 SUB #10, (SP) :MOVE SP TO USER’S BRANCH 
051046 Od00240 NOP 
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1059 000001 001340 BIT #0M, RMDSI ;WAS “OM” RESET?? 

1056 ies BEQ ;YES? 

1 1 001340 001140 MOV I,SGDDAT EXPECTED STATUS 

1066 042737 1 901140 BIC 80M, SCDDAT : ; nen 
petors eat ADD #4 — i ROVE 4g? 18 USER USER’S ERROR CALL 

1106 il 000103 oo0000 MOVB 8103, a(SP) * WRITE 

1144 716 SOOO Sup , (SP) ; MOVE TO FOR ERROR 

1 SR a(SP)+ * RE ERROR VIA USER 
oeiiee 62716 000010 sus #10, (SP) ‘MOVE SP TO USER’S BRANCH 
fetise 12$: 

REPORT AN ERROR IF “PIP” IS STIL ON, I.E., DRIVE NOT ON 


PIP, RMDSI 315 DRIVE OFF CYLINDER?? 
#SKI, RMER2I ips: "SKI" DETECTED?? 


AiScr sconar iipect Satis 


RMS! SBDDAT — ;RECEIVED STATUS 
“MOVE SP’TO USER’S ERROR CALL 
SP) ;WRITE ERROR NUMBER 
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NUMBER IN CALL 
;MOVE SP TO RETURN FOR ERROR 
;MOVE SP TO USER’S BRANCH 


TO USER’S BRANCH 


Pie 


REPOR 
;MOVE SP 
AND ™ 
WAS 
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sMOVE SP TO RETURN FOR ERROR 
sMOVE SP BACK TO YSER’S BRANCH 
sWAS ILR SET DURING RECALIBRATE?? 
‘EXPECTED STATUS 

sMOVE SP TO USER’S ERROR CALL 


;MOVE_SP TO USER’S ERROR CALL 


; WRITE 
MOVE 


so 
ON?? 
WAS THERE A DEVICE CHECK?? 


YES - DON’T REPORT UNSAFE 


;EXPECTED STATUS 


SMRITE, ERROR NUM 


;EXPECTED STATUS 
;RECEIVED STATUS 
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RECALIBRATE STATUS CHECK SUBROUTINE 
TSTB = A( SP) ;WAS AN ERROR REPORTED?? 
BEQ ;NO!! 
#4, (SP) ;YES - AUGMENT SP RETURN 
i #4, (SP) ;NO ERROR - RETURN SP TO BRANCH 
RTS PC ;STATUS CECK IS COMPLETE 


LO1 


PT 2 SEI POU Cade 2 
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Bai ieee hates oa 
Sa OE das OS 


PC, a(SP)+ 


779 


-SBTTL DORIVE CLEAR STATUS CHECK SUBROUTINE 
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001344 o01142 6S: 
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SUBROUTINE 





DZRMOA.P11  29-JUL-77 14:07° DRIVE CLEAR STATUS CHECK 
1 1 
BE Se BR 2 ee ee iE 
Be te BIT cam eR Aireittoy Clemen 
1pm) fen Herre Beane ooo = He UN aisr) RUT ure Gaon ct 
1 73% : 
| Pre oxi a ae ee nae 
REPORT ERROR IF RMMRI NOT INITIALIZED 

Se0ee Ol po1i42 4s: RMI 1 Ts CHECK 
eee a ge OO a 
1 3 260s f 1140 001142 ep ScDoAT, SORT Corben EX CTED AND RECEIVED 
iGrt 205 #4, (SP) i BOWE 
PA ee BEG mmo eM Bena 
ee es a om eos ASG RS it 

NOP 
1071 “REPORT ERROR IF RMMR2 NOT INITIALIZED 
1071 1 001366 o01142 11S: MOV © RMMR2T, SBDDAT CK 
Iie Geelid Biever [ooo Boils | GiC SRRRT RMR Sitoar LCLERA REOR FEO rr 
1 : 001140 001142 CMP $GDOAT, SBODAT soNPanE Exe CTED & RECEIVED 
{ He 00004 aro aa (SP) ROVE SP TOr 
A en BO Cat as 
iE ; bicots 000010 he Atel sy (bef ne Beeman 
v 

! 001140 15S: CLR  __SGDDAT sEXPECT ZEROS 
1 RE 
hie nae 001374 001142 me or "pate ‘Seopa ; CHECK RMECE 
1 16 000004 ADD "MOVE SP TO ERROR CALL 
te ath Ue BBR? ENGST OE ae 
i ’ 3 
: Bale fee oxo. a a oe 
10740 ose2 19737 001370 01142 [FORT ERNOR TF APRCT,SGUDAT CHECK RNERE 
irae Se: 13 BEG 18S BRANCH IF NO ERROR 
Br Se; ber 147 900000 ove #147, 9(SP) HIRITE TURBER OF ERR IN CALL 
i 2 
ie ¥. 166716 000010 Er Atal 3M ROVE sp 16 AO ERROR RETURN 
1 18S: 
io780 19S: 
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DZRMOA.P11  29-JUL-77 14:07 DRIVE CLEAR STATUS CHECK SUBROUTINE 
;AUGMENT RETURN ADORESS IF ANY ERROR WAS FOUND 

10753 052262 062716 000004 ADD #4, (SP) sMOVE SP TO CALL 

000000 A g(r) SHAS AN DETECTED?? 

Q 1 ;NO!! 
16 oo00004 ADD #4, (SP) YES - MOVE SP TO ERROR RETURN 

12, fess 16 000004 21S: Bre #4, (SP) ;MOVE SP BACK TO NO ERROR RETURN 
10759 23$: NOP ‘ 
10760 052310 000207 RTS PC RETURN TO USER 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 
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;USER’S SUBROUTINE CALL: 


7(1) JSR PC, DTASTS 
:(2) BR 29 HERE IF NO DAT 
2(3) NOP RETURN REPORT AN ERROR 
:(4) Sug HR NUMSER 
7(5) JSR PC, a(SP)+ FOR MORE CHECKS 
*(6) =? SUB HERE AFTER ALL 
; ERRORS ARE REPORTED 
OTASTS: ‘ 
; CLEAR ’S ERROR AND ERROR 
000004 a4 (Spr hove SP TO USER’S ERROR 
oo00000 CLRB 3s a SP) , ; CLEAR LOW ORDER OF TRAP 
000004 SUB 84. (SP) RESTORE SP TO NO 
055706 CLR 500s CLEAR ERROR FLAGS 
;REPORT ANY PARITY WH TE REGISTERS, I.£., MCPE = 1 
genoa onises =P" BAY COMER BUA CST™Y RR HERE AAT ER 
001140 MOV I T EXPECTED STATUS 
001140 BIC T 
132 001142 MOV RMCSIt, SBDDAT  ;RECEIVED STATUS 
000004 ADD #4. (SP3 : SP TO USER’S ERROR CALL 
000013 00000 MOVB #813. a(SP) * WRI NUMBER 
000002 SUB #2, (SP) "MOVE SP TO RETURN IF ERROR 
JSR PC’ a(SP)+ REPORT ERROR AND RETURN 
BR 308 
any CONTROL : BUS PARITY ERROR WHILE WRING REMOTE REGISTERS, I.E., 
BIT SPAR, RMERLT ;WAS THERE A PARITY ERROR?? 
BIT SORE, RMER2I SHAS IT DUE TO CONTROL BUS?? 
MOV RMERI T EXPECTED STATUS 
BIC #PAR T 
MOV RMERII, SBDOAT s RECEIVED STATUS 
ADD 84, (SP3 : TO USER’S ERROR 
mMOVB #50, a(SP) + WRI NUMBER 
BIT a ,RMCSII *DID MXF GET SET?? 
000274 MOVE 8274, 3(SP) NO = ERROR 
15S SUB #2, (SP) : MOVE SP TO RETURN IF 
PC, a(SP)+ ; AND 
BR 30 
20S: 


SEQ C223 
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10817 

10818 3LOOK FOR A RR RS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 
1082 FIRST ale lo ra WH CH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
108e3 Pat 032737 001000 001336 ° Ee ee RACE! ;HAS “MISSED TRANSFER” SET?? 

sy ned 001336 001140 AneS2I SGDDAT EXPECTED STATUS 

1 001000 001140 BIC aMXF T 

1 001142 MOV Px IVED STATUS 

1060s & ADD #4, = TO USER’S ERROR CALL 
he ise ne he T IF ERROR 

inese RETURN 

1 

1 AND BYPASS FURHTER STATUS CHECKING 
ipese 052562 sMOVE SP TO NO 

108% 052565 : SKIP 7 END ete 

10835 

108 ;REPORT AN ERROR IF “OPI™ ERROR OCCURRED DUE TO “MOL” = 0, OR IF “OPI™ 
i 5AM “MOL” ARE SET, BUT "VV" IS RESET, INDICATING AN INTERMITTENT 

i ; BIT 80PI, RMERII 31S "OPI" SET?? 

i HOY Reenit SDOAT *EXPECTED STATUS 

MOV i T  ;RECEIVED STA 

. 2 ee 

itsst IT #VV,RAOSI ;HAS “MOL” INTERMITTENT?? 

i ADD 4 (SP) 5) iOV SP TO USER’S ERROR CALL 

1D K 6 5E CoB” ag ) > MOVE oP TO RETURN I ERROR 

1 Bbk JSR PC’ a(SP)+ : ERROR 

i fee 1627 16 000010 SUB #10, (SP) *RESTORE SP TO NO ERROR 

1 SOs: 

1 

10860 REPORT "OPT" ERROR, _ WHICH IS QUE TO "ON CYL TNOER™ NOT DROPPING OR 
ioeee gseb7e 062716 000004 oe 84, (SP) SEARCH OVE T ’S ERROR CALL 

i 116776 000277 000000 nove 4277 ,9(SP) jHRITE ERROR NUMBER N CALL 

10865 pesrtg 004736 JSR PC’ a(SP)+ REPORT | PORT ERROR ANG RETURN ter 

10866 beer 16 000010 SUB #10, (SP) *RESTORE SP TO NO ERROR 

: 1 NOP 
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SEQ 0227 


FOe 


1F ERROR 
RETURN 
=1 
=0 
*S ERROR CALL 
jn 
ERROR 
ERROR CALL 


NE 
ERROR REGISTER #2 


ERRORS SET 
RECEIVED STATUS 
SP Ti 


EXPECTED STATUS 


a oa 
;RESTORE SP TO NO ERROR 
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2? 
WAS LBC ERROR BY MOL 


;NO BITS SET 
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REPORT any DEVICE FAULT, I.E 
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Od dF hd hd 8 hh dd hh a gd a gh hd dd et tt dt dd HH Ht 


CRC 
BICC RRERII 
: T 
RRERI , SBOOAT 
eat 
(SP)+ 
a a 
II 
T 
ther IF SET 
;WAS "HCE" SET?? 
poe 
Ley: 181 
core Ils 
iI T 
he 'HCRC, 


my 
fe 
BNE 


;SEE IF ANY HEADER ERRORS 
fo | OS 


08710 


eee 
000063 055710 
002000 001360 


10e 


pie? BOS tra? PT? BARA HRARSPER Conan STATUS CHECK SUBROUTINE 


SEQ 0230 


a 2 
a oO 
& : g 
Shea 4} gi; 

g gee tri : 
Le ee 
mee §i togiup Ne bs gies 
eSopot Ec E w Woss of S gece % 4 WoSogo 
me lil leshagwe: tick 
Gin ici Giivieesit ak Gais 
s:, $2 Gilad cs: 4 
grass ee ae sis 1 Nas 
oe | SERS SRE RSs sia are i 


se ment, 


sites 


41a 
me if Bee | 


; BEE ee Gsisseseoss aT 


fe RRR ARABS SLSILSBORCLLAR ERR Ra VSSBRSSORSRRT RO TRS SSIS SSS 


geanae 


;1F A WRITE COMMAND 
05 RE il 

BNE 

IMP 
REPORT TN ote eck RRER 

u 


g 
SLESeBsoGage 


8 99 a 
ed) 
39 — 


260$: 
270$: 
275$ 
5 

;D0 NO 


001140 
Bol ise 


100000 coe 


a 
ber 
et 
mitt 
000137 055106 
~— 
Nad 
tt 
fi 


000010 055710 





a ah a a a a wd ad ts ed 
YG a a dh dd dg dd et kd ed md hd Hd Od HN Et 
Od a dd dd ad ad dd Od ed te 





JO0e2 


29-JUL-77 _ 15: PAGE 
p status & bx SUBROUTINE 


COMMAND 


TEST 10 «Re Le 


SE@ 0231 


i sour. 


, PART 2 MACY! 
DATA 


FUNCTIONAL TEST 
29-JUL-77 14:07 


RMO3 
1 


Pl 


SET; REPORT ERROR IF “OM™ = 1 
OFFSET 


000001 001340 


eau sae 


LLAAAPLAPLEPLELEDLADLAD an 





sage 


ae 


ee 


1 
CALL 
IF ERROR 


“WCF™ 
;RECEIVED STATUS 
iTRITE ERR 
;MOVE SP TO 
;MOVE SP TO NO 


I 
Ret en STATUS 


- 


= 
as 
o-~ 
<a 
, anh Aan 


Jt 


om 
= 


2 Senne 
= 
SSSESBOEIAR 





Verity! pus 
++ 





F “DLT” = 1 


_ 


TaN 
Ss 


: 8 igt d = 
HG boBoge Beatin 
GB SoSoem Gece 
olf Hatee Booed 
2 S. 


: she UE 


se aac 


= cane | 


I 
‘ 


oe ROOST CSP) is 
P!MOL! 
EW 


a 
3S0$: 
;LOOK 





ST ee 


RG ke ed ed cd ee et th Ed yt a dG dd SH SH 
hd Rd ag dg rd a can ed ad ee a a a a Ce dd ed ed a ad OY ef a Rd nd ed a Od 8 ed I og ed od 


RMO3 FUNCTIONAL yest. PART 2 att 30(1046) 29-JUL-77 15:01 3 
11 29-JUL-77 14:07 DATA TRANSFER COMMAND STATUS CHECK SUGROUT INE won Cane 


265 
ebb cae i. R Reape IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 
Bit | aP f RroSI ; ht "PIP" SET?? 
BI SKI, RMER2I WAS “SKI” ERROR REPORTED?? 
SOV REDS. ScODAT iYEs-O0N SFarus 
0S BIC PIP $c00Ar 
OSS RMOS! T — ; RECEIVED STATUS 
065 4 (SP) oo) HOVE SP 10 CALL 
055 ty : MOVE sp j o RE IF ERROR 
PC oe} : TURN | 
#10, (SP) : SP TO NO 


= 2 
arg Seuegee 
a8 


13 by beagudenepeic name ecko 
: ;1S MEDIUM ON LINE?? 

SHAS OPI ERROR REPORTED?? 
EXPECTED STATUS 

{.$8D0AT § ; RECEIVED STATUS 


) : SP °S ERROR 

(SP) HIRY Ye Era 

) *MOVE SP TO RE IF ERROR 
: TURN 


me 
a 4 
w | 
frit 
3 
-_ co 
~ 


: 
¢ 


"g eutges 
ae 
Gove 


Soe IRE E RS SEE RR SOR RSE ERED Bad total Sains 


ee ee ee ee pe be ne ee Be a ae Be ae an be Be ae Be en ae ne Pe me an a ee Pe Pan pee Pe Pee Be Pe ne ae Pe Pe Hee =e Pe Hee Oe Pe Pe De Oe ee 
Oe ee ae pe nae ee ee Be ne Be ae ee Be Be ae eB ne Bn Be he en Oe Pn he be be Be Pe fe ee Pe be Pe me Pe nO Pn ohn Oe Fe ee 





SP TO NO 
370: 
; REPORT IF VOLUME IS NOT VALID AND “IVC™ ERROR WAS NOT 
‘REPORTED, I.€., W = lve = 0 
bre wv I i18 VOLUME VALID?? 
BIT 8IVC, RMER2I ‘ne IVC ERROR REPORTED?? 
cw Roe 1  Gedeven stans 
BIS avy 
MOV RMDSI,SBDDAT —=s;x IvED A 
ADD a4, (SP) : T CALL 
MOVB a(SP) ;WRI 
SUB 82, (5) jMOVE SP_TO key ERROR 
a a AiOe(aP) Rove SP TO NO 
ia o008: 
32 AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 
3 #4, (SP) ; MOVE eSeold ERROR CALL 
a an tal 
ADD #4, (SP) *YES = SP TO ERROR RETURN 
BR 4ods 


LOe 
SUL uEBy PPT? BATA tRRRSPER Confiand Status Getx SUBROOT Ine 


BeRDA.PL 
11321 055700 000004 390$: SUB #4, (SP) ;MOVE SP TO NO ERROR RETURN 
L133 0SS704 400S: RTS PC ;RETURN TO USER 
1138 088718 S108: “WORD {FERPORARY SToRAGE 








- A a FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 232 
29-JUL-77 14:07" STATIC ORIVE STATUS CHECK INE 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 
; THIS FOR ; IN 
i 
GUN Be used MUaeHEEP In BeU OThen COOPERS OU 
Te LUNE COGTTINS WE TERED HS END mS Sue 


: IF 
iat af nts feSind 1 Pp NOTE 
VOLUME _ VAL 10 
or : ft tN ie ae meen YLINOER 


ae DF Ress AMRS'PRaTP? SEO 


THE SUBROUTINE = CALLED AFTER STORING STATUS IN THE GET BUFFER. 
(1) STCDRVSTS 
ape at) RETURN HERE I 


a ee 


TURN HERE IF NO 


us #4 (Spo ; MOVE - EOE 

CLRB a(SP) 

SUB #4, (SP) a NO ERROR RETURN 
SEE TF Oy * pins = 1, AND” 

Hoy (SP) IVE STATUS ON STACK 


BIC arecete! no, = 
HrOLIW, (SP)3 MOL, VV AND PIP 0.K.?? 


BEQ ;YES!! 
nae. y 5,0 80” idg.tot On 22 


bibs bali~- 
ciilen Ec pe it ca 


;MOVE SP BACK T it haga 


BB be em Be B= = BO = f= 1 BP 9 Pb Bb Bb 0 be 0 0 fb a be Be bo 0 = Bo bt Os Bee 


REPRE RS A Sasa edo cu Taal cae ee Se She REA ae ny da 
Sugusususyul ala uy AH 
ft ~ 1} 3 - 


Pb bb be Be fe ee ht ef et 0 ee 








SEQ 0234 





OZRMDA - RNO3 FUNCTIONAL Ly +f PART 2 MACY11 30(1046) 29-JUL-77 15: eine PAGE 233 SEQ 0235 


DZRMOA.P11 © 29-JUL-77 14:07" STATIC DRIVE STATUS CHECK 
i378 Beeegg coveHe cs, 

es FEPORT ERO "FS Menge “NO = 

1384 BIT  SIVC,RMER2I ss . 

is Pov Regs SGDOAT esos SANE nd 

ie o Biwae ae ti 

ES) sug 8, (88) ; fk ERROR . 
139. op BION CSP) Yo" 

1 NOP 

1 se 20S: 

: ae er OFF Fo DRIVE OFF CYLINDER’? 

I,RMERCI =; WAS ““SKI™ SET?? 
e : RADS1 ,$c00AT ae 





SBDDAT 
Ra eS) bia a 
li ( oe ALL 
(SP)+ ; Enon’ y a coe 
AT ES : SP TO NO 


SeuesEs 
om 
c 


4 
: 30S: 
4 SEE IF "SKI" = =pvcs = 0 
4 nov 1 1.-(SP) __;PUT ERROR REG 2 ON STACK 
4 BIC tcc ti0ve>, (SP5+ 
4 BE sBRANCH IF NO ERROR 
4 eo 
4 “REPORT AN ERROR IF A DEVICE F 
P r oe ANY DEV E FAULT? 
Hoy : TED STATUS 
i, pen 


tt 
fie Boe 


;REPORT AN ERROR IF “SKI™ = 1 


Oe Oe Oe ee ee ae Oe ee Be ee Oe ae Oe ne be en Oe Oe be ne ae hae Pan Oe Oe se PO ee nee Oo Pe OD 


O— 0 &— 0 O = OF 0 b= & = 8 = FF 6 0 0 OB 0 0 0 = = 0 
> 


C2 a 


BO3 


Seer? so?" StaIC a Seek subroutine 


SEQ 0236 


EXPECTED STATUS 


;1S THERE A SEEK INCOMPLETE ERROR 


I 
=i 
Ct, <a 

) 


i Brags 


LEpeEseaaas 


Al ERROR DETECTED? 


;YES - MOVE SP TO USER’S ERROR RETURN 
;NO - MOVE SP TO NO ERROR RETURN 


sRETURN TO USER 


;NOL! 


SS IF ANY ERROR WAS DETECTED 


# 
Pegs GSE 








en 


a ad dd a ad md et ad ad a wt od 
SG md ee ad ad ed RE eg od ed eG eng oad EY a a YH 


SSSCERSERERONE 


N“ 


Dt me Bae fees Get Bem ee be Bo fee fees fee free fas fee bao pe fo Bs bee 
-_ 


$855480555° 


SERRE ONS See SRR PONS COBORRE RES 


Ll 


ee A FF Ft ee 


Bee bt fe Be he Fs Peet Ga Ba Pe Bae Bee ene ee fee fe Be 8b = em en P= i bh ee ee 


uw 
b= b= 
oO 


CO3 
A eat ca a aida moe 


a eerie 
oa -SBTTL COMPOSITE ERROR CHECK SUBROUTINE 
; THIS INE CHECKS THE STORED Coren OF RMER1 AND TATUS 
IERIE Becton a oi BE MOLDS Gtr 


;CALL: 


3 (1) PC, CMPERRSTS 


JSR 

_ Sa 

. WORD G 

BR 779 

— EM 
JSR PC, a(SP)+ Fhe Ble CHECKS 


101 BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 


7 AG FOE DE OMTRTE OF MR BPE oe sre 


013737 001342 001176 
ONES? 000000 001176 BIC o(SP) 1 as 
0627 trier 
1200 MOV I ee TE STORAGE 
aver BIC a Stipe STORE, Ree 


a 
a: 


aoa & 
: 
SauesBcebag S588 
~ 


SP) ;MOVE SP TO USER’S ERROR CALL 
SP) ine 8 T RETURN 


WERE ANY ERRORS mn RERI STHP1 
sivPl “tO REPORT?? 


STMP1. SBDDAT malt ATUS FOR TYPEOUT 
scopat Gag eth ,£OR TYP TYPEQUT 


nove 
SP) ;HOVE. SP 
IREPORT 
9 





i 


001142 


ERROR Via USER 
;MOVE SP BACK TO BRANCH 


R 
— 
o 
al 
oO 





> © O0024O 
Ss: 
;SEE IF THERE ARE ANY ERRORS TO REPORT IN RNER2 (STNP2) 
oos7 37 001200 TST STMP2 ANY ERRORS IN RMER2? 
1 BEQ 10S *NO!! 
13737 001200 001142 MOV TMP2, SBDDAT ATUS FOR TYPEOUT 
oor 140 CLR Seppat PEPE CYED Starts FOR TYP TYPEOUT 
tb ADD #4, (SP) :MOVE SP TO USER’S ERROR CALL 


DOS 
ai? SUOMI: PT 2 NSH AUR Balhae! PH = 0 


vi 





11512 000000 MOVB 867, a(SP) mee rae NUMBER IN USER" S CALL 
Hela SE, ERROR Vie Ue 

1151S SUB #10, (SP) FePter TO NO femme 

il ib NOP 

it 1 10S: 

i2i8 ;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

il ADD #4, (SP) MOVE SP TO USER” S ERROR CALL 
11838 ie ater) iHRG, THERE AN ERROR CALLED?? 
1 ADD #4, (SP) YES - MOVE SP TO ERROR RETURN 
{ess se: te Bae (SP) MOVE TOUR 
11527 P : 

11528 


E03 


) a eet PAGE 237 


TEST, PART 2 HACYIL 30(1 


RMO3 FUNCTIONAL 
ll = e3-JUL-77 1 


Pl 


STACK 
STACK 
PS 

ACK 
TACK 
PS 


- 60 TO END OF PASS 


NEW K, ON 

NEW PC ON 

NEW PC AND 
He Pe 
; TYPE THE HALT MESSAGE 
;RUNNING STANDALONE 7? 


gS 

o3 2 tgs 06 

¢ beet peer § Fee. 38 

Ecce = 8 Ee 

aoe 

: are Be i. 

7 oe Seg 

# > E N 

6 Sear bees 2 | Enge Be 
f88 ¢2 geqg a8 


al aT 
gia) ser 
. | Bad Bia 


2 SauanumnanezrEer eraamamanas 


oe hee eee eee hem hee em hee em ee hee em hem bem em hee hen eee hae bam ham hem em hee ham ham ham kam kan kom ham) 
Yd ed end eh a ed ed ge nt gO a ed ad od ed ed ed Od ee 





SEQ 0240 


FO3 
PAGE 238 


29-JUL-77_ 15:01 





, PART 2 MACYLI 30(1046) 
SAVE AND RESTORE RO-RS ROUTINES 


DZRMDA - RMO3 FUNCTIONAL TEST 
29-JUL-77 14:07 


OZRMDA.P11 


SESESESSSY PERE xxx 
Seureeeety weywaecaae 


reer haas cere 


;;NUMGER TO BE TYPED 
; TYPE IT 
GE 


Sahooes ts Diwan tte 


TYTTTT ras +++ +++ ++ + 


UCN «© HBREDODODS 


Se ee et et et et eet eet eet ee 


Mb Sb Ab A bb ab a8 bb ab ab a ba ab bb a bb a a ba aE 


RO-RS 
TS ROUTING iS ieeo te 1o-BIT BINARY NUMBER TO A 16-B1T 
) 
Rl 


ss REEL EELLELELLLLLELLLELERLALALSESALERA RELL EEE RARE RES EE ESSE 


G 
ne FROM SSAVREG THE STACK WILL LOOK LIKE: 

( 
( 
-( 
-( 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

SBTTL BINARY TO ASCII AND TYPE ROUTINE 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 
HHUPON 

+ xTOP——- 

ie <~—e 


tt BESSSSSSSSE : J BESSSSSSSSrS 
: 


3 
Hate | 


i 
its srec: 
ity 
: #81 
#CALL 
oy 
eS 
STYPBN 





sereme 
tore 
etire 
tiie 
ee 
eaene 
7-7-7 
aaniee 


SS See 5 
suanaanagad Saat os 
| SANGRE RRO SROREN RE RAI RRR ADRES APPR RRS RES SAE BAS BES aS 


ce dd aedededatesesesedagesete te teae sete -_-- 
a a dg a a 8 hd dd hd ak a ad ad Gh ad ad dd dd ad ad 4 Fd dd hd hd hd a tt 











GO3 
a RUN Tadhg! OE 0 or 


1S: OVE. «8°, SBIN siSET Ce $0 CRM KEEP TRACK OF THE NUMBER OF BITS 
a gt fue aly : 
roe N Sree Bis gre EQUAL TO THIS BIT 
ac 5} CLEAR ere KEEP TRACK OF BITS 
FOV (8P)4,R + Bop he Sr INTO RI 
MOV = (SP), 4( SP) ;;ADJUST THE STACK 
aad (SP)+, ( rp 
Santi BEar Bife 10 snl RE fig 0 0 rom 


nes ae an PEE Ie ct oe AQ a RIMS SIGh muito a 
| at OM RIE 





— BCO DIGIT BY 1 


BRgRESPESCaRTIIESIIS 
ara 
: 


PUR 
R 


) ee. 0's? 
iE, 
a Bcd Biel? asc 


BOT THIS CRARACTER IN. PUT BUFFER 


ms 
sera 
og eee 


uw 





25 
ow 

a2 

= 


3 





ee ee ee OO FO = Fe BP FO Oe OO 
Oe a eee Be ee Be OF OO be OO Be 


NNNNNNNN 


Sootdasass 


TGR EES | 


or 


be -6- Fb -e—b— be eo 


NOUS 


os est 


Pil 


eer 


, PART 2 





CONVERT BINARY. TO’ DE DEC MAL rat ROUTINE. 


Ge oslo HOecK Te TALE THOEX 
a +388 8 By et Os 
RS, Re $3 

gs: a on Bmp ee Hest non-ZERO? 
- ie aaa Hs reba foe"* TYPING 

ee 

a ne 

my eg) ),4¢SP) ::ADJUST THE STACK 
wr: ‘io vanes 


oe « 4 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Se ee ae a a eae eeeer a Lait DIGRY MOUER TO A 6-Ot 
fhe SUA CAE TO A 16-BIT BINARY NUMBER TO A G-DIGIT 
ID) OPE IT 
BO TP SAPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


fe nov mun,-(5SP) ;;NUMBER TO BE TYPED 
i# ;CALL FOR OUT 
ia N TY Nodgammalad ase TO TYPE 
: HADES fvos 
isETvPos on ivPec TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
if HOY Num, ~(SP) s MBER TO, Be. TyPeD 
EgTYPOC---ENTER HERE FOR TYPEOUT OF f 16 BIT MURGER 
;# MOV. NUM, ~(SP) ; ;MUMBER TO BE TYPED 
;# TYPOC ;;CALL FOR TYPEOUT 
STYPOS: MOV a dat P) ; ; PICKUP Te nt 
me (Ela, me he 
GR OSTYPON. " 
STvPOC: Wve eersomoge1 «SET FOR Sixte) DIGITS 


SEQ d2e42 


I03 
auf? BPS EBD PO" 2 BRDU TON REI Wo Hg! PE 0 020 


aw! 


ah 


eT tne i RSERT 8 ra te Rate eek RACERS FT de Ine PEED. 
TER TO FILL 





f° 
dei 


Ie Bits aie ts ates feuiieed 


SICAL: 
;#1) USING A TRAP INSTRUCTION 


799 Q0000S 57544 STYPON: MOVE 85, SOCNT 5 Te ITERATION COUNT 
ti ; nOV Rs (3) ) COVE RY 
il 5737 S MOV -(SP) Save Ae 
if : 057547 nove +1,R4 NUMBER OF DIGITS TO TYPE 
i ; M 900006 Aa 8,4 1 BTeCT, IT FOR MAX. ALLOWED 
He a hee Ba ae a a ae 
HR Bee Be - © a 
11 BR 35 
Lin 57432 2s: RO i +160. THis DIGIT 
lie 3s: ny aie DIGIT 
Line Tia 057546 , bets Son00e fire fa olclt 
Hl : 177770 BIC = 8177770,R3 ea, JUNK 
11763 O 00060 ~ BIS 80, R3 i TIS DIGIT ascil whe 
11 ss Bisa RS ;}HAKE ASCII TF NOT ALREADY 
f 5750¢ teres - Tyee a $3 THIS DIGIT 
3 as Bs Pe eae 
; ad ’ 
11761 05752 es HESS et Dd 72 ane 
ie “ @ Gee ieee 
if 675et MOV (SP)+°R3 $3 Rs 
11 % oooo02 000004 Noy @(SP),4(SP) STACK FOR RETURNING 
it 575 ney (SP)+, (SP) 
iH y 5 
Ligh Y 5 
i 
il 
tes 
te 
11 
il 
at 
il 
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DZRNDA 
OZRMDA.P1 I 
11784 it TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
i TYPE 
: is MESADR 
3 STYPE: 1s18 STPFLG i318 THERE A TERMINAL? 
c T Ht, IF NO TERMINAL 
i te: 1S ae 25 (SP) is 
5 os ; MOV ) es 2 STRING 
SF ma, Sh ens & 5 ap oo 
BE EY ime ee 1 ope 
61 “ORD festa ig ie st 
pe: BITB SAPTCSUP , SENVM : CONSOLE SUPPRESS! 
2s: MOVB (RO), -( SP) i CHRRACTER 10 BE TYPED ONTO STACK 
BNE 45, F ards ae THE TERMINATOR 
TST it OR POP IT OFF THE STACK 
gs: B00 a (ah) Phe oc 
4g: BHT, (SP) ab IF <HT> 
SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 


(SP)+ ;PoP ree Ata eo Fputy 


es ee: 


+ to a 
+ THE NULL OFF OF STACK 


(SP) 
Scan Bao a A COUNT 
8 ie re Type Hie H iF nT AT 

S 


(SP)+ + BOP OFF STACK 
1 EET UNTIL PRINTER 
STYPEC: TSTB TPS ::WAIT UNTIL PRI IS READY 





“Bog Snge7e a go3 


4 





Be a ee ae ee Be Pm BB Be Be Ft Be = Be Bb he me Pe fe Bt BF = FS Pe 
Ob Da be bs OB BB FO 0 Pt Ot ne FBO Ot = Ph BB Fm be he en = bf 0 be Be Ph eB FF = Oe 
0D OD 00 oF WMO ODDDDMMog 
+ ‘ s ; 


F yha dad tadha tad dtadtadiartororurororironoror: 
+ > + +4 + + + 


FUNCTIONAL TEST, PART 2 
JuL-77 14:07" 


i 
$ 





121106 


121040 





(Be BS fet = Bh Be Bm Bt Be eB BR Be a a ee ee fee fo fe es Fe Pee es Be me 
> BB Ob BO Oe = Ob 8 8 0 = OO 0b 8 = = fb = FO pe eee 
+ 4 44" 4 ‘¢ 4 a oe 2 2D ‘¢'¢ 
+. oT at oe ; ' 
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TYPE ROUTINE 


Hue, CHAR TO BE TYPED INTO DATA REG. 


EEE Det ocx on 
oe eee 


| HRRRC STORAGE 


AES RAH Geel Neha rhe Bit We dISE 





fe Gio tigs hd bleeds 
Lisi (Be T ITERATIONS 
jo iB on Feet in SWR‘7:0) 
; #CALL 
ti SCOPE ; ;SCOPESIOT 
SSCOPE: 
;;TEST FOR CHANGE IN SOFT-SWR 
PC, STOP 
1S: iT q PRESENT TEST? 
IF sul4=i 
aseerest RUN] ORT, TESTER CHANGE 
Les THE ERROR VECTOR 
* THE ERROR VECTOR 
SS: ACK A TIME OUT 
My TOR 
6S: ; eee 
: —n 


BSCR Se tesee sg See eaes F 


SEQ 0245 


LO3 
BR a ESO TD: PT 2 OBI ARUN FN 77 1SL Pce o 0 Cae 
005726 o01117 os TST (SP)+ ;;CLEAN THE BAD TEST NUMBER OFF OF THE STACK 










i aia Ted Conendt Ales a en edlcoed 
Hs 001000 120750 Bit 33709, acu oto emo . 
1130: 001124 001122 7S: HOV ,SLPAOR ;;SET LOOP ADORESS TO LAST SCOPE 

1908 Bol 206 GR Orires TERR the ture TIONS TO MAKE 
He 004000 120716 3S: ee Sites Get heen ca 

t oie BS Dass AF ins om 

i BUR ono = HB son RES ak Feros wae 
H 73 601206 ae Rov RXCNT, STIMES ug z Fraley, 

i i¢ i 001226 i STSTie) STESTN ie i N APT MAILBOX 
: FF 1 on. Sire ore 
133 . fo tif mt TIONS 

ie SSubeTiL: 33 pent ST 

He Ee oes Fae 

HE re at i 

ts iat f 

ie He a 

| ey: 

Hs POS gap 

| Hi aTRTHN t 
TE 








FUNCTI 7 Lyf PART 2 
TRDA.PLI cea 4:07" 


1: 


ge 
ge 


— 


‘| 


Ri SBASBLRIAM ING FUMIE MA 


bee 
fre 


MO3 
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SCOPE HANDLER ROUTINE 


s sBT ARTIS ADDRESS 


‘St 


S;STARTING AOORESS 


ALE REPOR FLAG FO — 


BY THIS ROUTINE ARE: 


islet TYPEOUTS 

LOOP ON 

N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
: TEST FOR N SOFT-SWR 
He PL ST NURBER AND ERROR FLAG 
fH “greor 
bi 
+ SOF ERROR INSTRUCTION 
Hal “SAVE THE ERROR ITEM CODE 
9° 
$85 fo ROUTINE 


SCAPE , (SP) 


OO, ore 





peel 


LR TE  TMEPROR. PEROT eg 


+ REPORT FATAL ERROR TO APT 


Het ae 


ee pre 


CH SET? 
RETURN FOR LOOPING 


By Ee acs 


ree i OUTO ACCEPT? 





SE@ 0247 


HALT 3; YES 


6S: 
3; ; RETURN 


: RTI 
-SBTTL TTY INPUT ROUTINE 
5 JHMM HIIHIHIIEIHIIHEIHIIHIEHHHHHIHHIHEHIIHIHEHHIEHIHIHHHEEHHE 


. LSB 
3) igen 
tk : /BLKB 1 :: TTY KEYBOARD QUEUE 


iSTHTS ROUTING MILL INT 

; #THI WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
’ 
; #CALL: 

Hf JSR PC, STKINT 
tI RETURN 


éTKINT: CLR STKCNT SCLEAR COUNT OF ITEMS IN QUEUE 


BATTED" |e "ind HD el BrP Mens, 
: ED aire momen 
3; #TK ICE ROUTINE 
i Be OPE ASTEY fori 


18 AoE 10" The “CONTROL-C* RESTART ADDRESS (SHUT) 


m3; i THE CHARACTER 
.} fr A GonTaa. c? 
rf -C (10) 
STRINT 33 
ART 





eS 
—e 
ann 


& 





SSO COE ETT eT Ts wyryn oh gk 
>, * a? + +t yt > ++? y 


a gh gh oh oh oh oh oh oh 
- * «= «= * = = = = 

+ 4 4 O O % 4 O + 
PUas was Oar 





BO4 


29-JUL-77 15:01 


SEQ 0249 


PAGE 247 


BOINTER 


TH Fait escr1 


T A CONTROL-0? 
t ORBaTe rhe PORTER 


Oe 
THE 


1 BRN Ea? xeveonrD INTERRUPTS 


;LOOP_UNTIL ITS THERE 


SMENTERED PROM The. TRAP 


Hg 


dit mano 


Srxosar » STKGIN 


< 


31S: 


di 
2 6 Ss 6 Bd J 
eee & 


SOMME HAE He SEE SSS SKe 


hh hd a et 


 RARRRRRER 


Od ad dd a ad gt dd tt 


120076 


120132 
120124 


rat! 





SURGE RUE A 


RELERE 


AND WILL 
ITCH REGISTER TRAP 
IT 7-81T ASCII 


T_A CONTROL-G? 


e A CHAR WAITING? 
IF NOT 
ee S 
31S t 
;;1F NOT, PUT IT IN THE TTY QUELE 


Pui 
Su 


AND EXIT 


FOR CHANGE IN 
N TTY 


Hy, 


ou ban, baw bam bam bam bam pam ban bam bam bam ba bam pam bap ban bap bam pan 
cucucucucuCUuCuCUCUCUCUuCUuCuCuCuTu Cum 
RG dd ag Od md Cd Oh ad ad i a Og Gt ed ed dh ed et Gd td dd tt 


t 
L(ALL DIGITS) 


Fw a4 
hl Bh 


T 
ad: 

NG IN AUT 

CHO THE CONTROL=G ¢ 
Bie ft FOR TYPEO) 
GO TYPE--OCTAL ASCI‘( 


aoe a 
,o1 $3 
9° 
NT 3 
AG $3 


aa + 

PC, STKI 
as 

#1, SINT 
aoe 


_~ 


28 


PASSED TO THIS POINT FROM 


Eaonse fet 


SGTSWR 


EXekaa Stan 


Eo eH att 


B88sss 8883 


=MUMTW Or. oo 
Ca RG eh eG eh Od ed a mse 


CO4 


BBR iP? REGENT: PO" 2 OA HeEA DBA? S01 Poe ae 





“U (tU) 
NPUT 


IT a | eal 


CONTROL -C 
ITA 

16 

;LET’S TRY IT AGAIN 
ITA 


ECHO CONTROL-C (1C) 
stack 
Aon TTY KE YBoanD INTERRUPTS 
.: ART 
rat sa 
GRORE PREVIOUS T 


agiranne Sa 


(3) 
scl? 
. 
sThtAG 
aS 
oho 

- 
be, SP 

SP),# 

59 

(SP) 

1$ 

(SP), 
SINTAG 

l 
PC c 
(SP), aoe 
(SP), 867 
sd, are 


= Essig oo eetskvse: pute, syngeetivecne ecengadgee tn 


19§ 
7$ 
8s 
9s 
20$ 
10$ 
118: 
tag: 
ss 
6$ 
17$ 
18$ 
DSABL 


000001 
117634 
117562 
000001 





| - ems ivi BRAUER SSIVONEEY LUMI g 


Se ae ee hem hee koe | ee oe coo BSS SAROSSAAA SA RORSSRA ASSESS 





php phe abe pb SRA ARR ARNT TIES aaa 
kd a dd tt 


rururororururoro 
an has Gat ba be fet Pe Be Be At Be Bae De eo be Ge BS ee be ee ee pe 


BEIKRLSVHLSSBIKRIBRHBISIct 





ee pe ee pe bn be pe me ae pe ee ee ee ee ee Be ee ee ee he a ee ae ee ee fe en Bs Be ee Ps ae Pe Be ee Be Ps ee be Pe 
* 





ae be beet fene fae peon fen pe Bae Dn ee fe fs bee bee 


DORR aN 


+ 7 + 
SS rerererererererererererererar arora ar aula 
SNE LE OMRES OR ENG T 


2 


PART 2 





Pe ee eT ke? 15:01 PAGE 249 SEQ 0251 


SETHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


+ *:GET A QUEUE 
Rev vere i Gotten 6,00 ihe ste 


SROCHR: sa [35S 33 DOWN THE PC AND 
gh Mg” iar Rea'me Syaser=™ 
sb 864S, -(SP) > PUT ON STACK 
ous RTI ;;POP PS 
18: TST STKCNT ;;WAIT ON A CHARACTER 
aan ’ 
nove tt s4(SP) 33 
cw QOUT, 8STKQEND’ ; -DID 1105 Orr OF THE E10" 
MOV @SRT, STKQOUT’ ; INTER 
2s: RTI : 
THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
oF ois URN HERE i eoress ae Pest ¢ ER WILL BE ON THE STACK 
i 33 TOR WILE A BYTE OF Ht 858 
SROLIN: MOV R3,-(SP) 3; SAVE 
CLR -(SP) ss CLEAR RUBOUT KEY 
1S: MOV eSTIVIN R3 He Ss 
2S: cH astTy N48.,R3 33 ? 
BE cereale ear gM mm DT 
10S:  CMPB 177, ¢R3) is 18 i 8 RUBOUT 
rst *Sp) He a IF he THE FIRST RUBOUT? 
HOVE eyes He A BACK SLASH 
MOV $-1, (SP) SET THE KEY 
6S: DEC R3 35 BY 
cre 3, aSTTYIN i487 K EreTy? 
H (83) ,98 *: TO TYPEOUT THE DELETED CHAR. 
BR 2s He ANOTHER CHAR 
Ss: Ist ee js RUBOUT KEY SET? 
HOVE ty ee A SLASH 
CLR tsp) ;;CLEAR THE RUBOUT KEY 





BEWDA.PLI eeu 14:0? 








EO4 
WALT} 301046) 29-JUL-77 18:0 


7$: CMPB #25, (R3) 
PIPE Lu 
BR 
Qs: CMPB sie, (RB) 
A (R3) 
TYPE » SCRLF 
TYPE Ph 
BR 
4§: TYPE SQUES 
3s: eR Se J 
: WEE i 
cHpe iS, (R3)+ 
CLRB -1(R3) 
TST (S54 
MOV (SP)+,R3 
MOV (SP). -(SP) 
MOV 4(SP} 2(SP) 
HOV aSTTYIN, 4(SP) 
9S: eve 
TTYIN: . 
C: ‘BP 740/615) «12> 
: .ASCIZ 7#U/<15><12e> 
G: .ASCIZ 7#G67<15><1l2> 
SMSWR: .ASCIZ <15><12>/SWR = / 
SMNEW: .ASCIZ / NEW = / 


gi 

CHANGE IT TO BINARY. 

; #CALL: 

;* RDOCT 

i# RETURN HERE 

. 

SROOCT: MOV (SP), -(SP) 
MOV 4(SP}_2(SP) 
MOV RO, ~(SP) 
MOV R1,-(SP) 
MOV Re, -(SP) 

18: ROLIN 
MOV (SP)+,RO 
CLR Ri 

2s:  fOvB ROD4,-(SP) 
BEQ 3s 


1 PAGE 250 SEQ 02s2 


;;1S CHARACTER A CTRL U? 


BR IF 
Dist als 

3360 . 

3318 yh tR”? 

+ Oe THE CHARACTER 

+s A "CR" & “LF™ 

33 THE I T STRING 

3G0 PICKUP CHACTER 
;; TYPE A ’?’ 

33 THE AND LOOP 
ECHO THE TER 

33 FOR 

ssh IF NOT 

33 ere (THE 15) 

He puBRUT FROM THE STACK 


° > RE 

9° 

* ADJUST STACK AND 
He FIRGT ASCII 


eae 


FOR ASCII CHAR. TO TYPE 
i e 

$3 @ BYTES FOR TTY INPUT 

t CONTROL “ce 


;; CONTROL 
CONTROL “G” 


;;READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN SHIOCT 


i 
m 


ss 
Bess 


R 
+ 


se 

De 
me 
Qn 
_c 

w 


: 
qi 
: 


= 
Rm 


oh 
Be 


hat hy bat by ht hy 
tatatatatatat at yy 
+ 4 at oA 


th 


+ 
{ayn a 
= ? ‘ 








177770 


000012 
062200 
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READ AN OCTAL NUMBER FROM THE T 

ASL Rl 5382 

ROL Re 

ASL R 33%4 

ROL 

ASL RI 3548 

ROL Re 

BIC 8tC7 (SP) ;;STRIP THE ASCII JUNK 

ADO (SP)4,R1 ;:ADO IN THIS DIGIT 
3s ae (SP)+ He INATOR FROM STACK 

MOV React ;: SAVE RESULT 

(SP)+, 33 NTO R2 
ry (SSNS Boe stacy INTO Be 
HOV (SP)+;RO ;;POP STACK INTO RO 


gf 
#8 
:: = 
<3 ai 
Fe 


tt HIGH ORDER BITS GO HERE 


{ATHIS MILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION. 
SOF DESIRE i; TINE. Te USING THE BDDRESS The Sra IT WILE . 
:#G0 TO THA I 
STRAP: MOV 2(SP) .-(SP) 8 STATUS OF 
BIC , (SP) 33 NOT ALLOW 
MOV #1$;-(SP) 73 
RTI ;;SET NEW STATUS 
18: MOV RO,-(SP) 33 
MOV 2(5P),RO 3; ADORESS 
TST (RO) HH e 
re heats 
MOV STRPAO«RO) RO 23] * T 
RTS *:G0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP) ,-(SP) s MOVE THE DOWN 
MOV 4(SP},2(SP) 3 DOWN 
RTI ;;RESTORE THE PSW 


-SBTTL TRAP TABLE 


04 


FUNCTIONAL TEST, PART 2 MACY11 30(1046) 29-JUL-77 15:01 PAGE 252 
: TRAP TABLE ade 











STYPOS ;;CALL=TYPDS  TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
STYPBN ;;CALL=TYPBN  TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
SGTSWR ;;CALL=GTSWR § TRAP+7(104407) GET SOFT-SWR SETTING 
SCKSHR ;;CALL TRAP+10( 104410) FOR 4 -SUR 
SROCHR 33;CALL TRAP+ 11) TTY 1h GefAcTER ROUTINE 
eat Dene a TReprISC1O419) Ren he ya BO? TTY 
SehvrES HOA fees Trotter taudie) RESTORE RO-Re- ROUTINE 
POWER Doth INES 
DOWN ROUTI sgn 
: MOV ai GSPURVEC i4ael FOR FAST UP 
ROY = aPMRVEC HS 5 5PRIO:7 ACK 
MOV R1,-(5P) B+ Ri on TACK 
MOV Re, -(SP) tie S ACK 
MOV R3,-(SP) $3 TACK 
MOV RY; -( SP) HH RY TACK 
BY Bind, REY Sao 
oo S -(SP) ss ON STACK 
nov See Seounvec’ i Sevt ip VECTOR 
BR -2 ; ;HANG UP 
$3 P INE RESRERARRRERERSEREEELAE 
ip: hv as agePURVEC 5 ob? FAST DOWN 
CLR . ::WAIT LOOP FOR THE TTY 
1S: Inc 5 ;MAIT THE I 
MOV (SP)+, 2SWR * NTO aSWR 
MOV (SP)+°RS He ACK INTO RS 
MOV (SP)+,R4 He ac NT 
MOV (SP)+°R3 He T NTO R3 
MOV (SP)+,Re ;;POP STACK INTO Re 
a a SE BU 
MOV SSPURDN, QOPURVEC uP POWER DOWN VECTOR 
MOV 8340, d8PWRVEC+ iAP nl 
SPWRMG: sono SPOWER ;POWER FAIL MESSAGE BOINTER 
SILLUP: HALT ;;THE POWER UP SE WAS STARTED 
BR 2 + EE ORE POWER DOWN WAS COMPLETE 
: O ;;PUT THE SP HERE 


. EVEN 
-SBTTL APT COMMUNICATIONS ROUTINE 


-ASCIZ <15)<12>"POWER” 








Pm Dm Bb a Bb be Fb br 6 Be ee BS ee ee 


a 


“3 


, PART 2 MACY11 30( 1046) 


000004 001222 





062642 
000004 


$ATyi: Move 
SATY3: fove 
SATY4Y: MOVB 
SATYC: 
MOV 
MOV 
TSTB 
BNE 
aire 
Q 
MOV 
ADD 
1S: TST 
BNE 
MOV 
2s TSTB 
BNE 
st 
MOV 
BR 
3S: MOV 
ADD 
MOV 
JSR 
4§: . WORD 
SS: 
10S: ay 
118: ae 
BNE 
MOV 
ADD 
INC 
128: cine 
MOV 
MOV 
RTS 





HO4 
29-JUL-77 15:01 PAGE 253 SEQ 0eSS 
APT COMMUNICATIONS ROUTINE 


> 


oor: 


ae 
ae, 3 


88 


pos 


o003--— 


SEEEERRRSLELEL ES 
5:10 REPORT FATAL ERROR 
:;10 TYPE A MESSAGE 


3370 ONLY REPORT FATAL ERROR 


ma oe Ww at XMISSION? 
fs le TN RAIL BOX MAILBOX 
i we ne 


TELL APT TO TAKE MSG 
ace 
peek fot MESSAGE? 

{CLEAR FAT 
Hae 
a 


i FLAG 
iit ATAL FLAG 


T04 
te eee a one TERT. PART 2 meev hs Sot Oe one ROUT Iie 15:01 PAGE 2S4 SEQ 02S6 


12456 -NLIST BEX 


JO4 


MACY11 30(1046) 29-JUL-77 15:01 PAGE 2S5 SEQ 0257 
CONSOLE MESSAGES 


-SBTTL CONSOLE MESSAGES 
SCTMSG: 





Y@CANNOT RECOVER THE BAD SECTOR FILES FROM LAST @<CR><LF> 
F ‘nae DEVICE@ 





«ASC 
-ASC 
ASC 
ASC 
$ 

N  chestahete HELP TEXT (Y OR N)?70 


; we 


FOE be es I mes (Y OR N) ?7@ 


: .ASC cE <LE> gern TK 


<OR> (LED aTYPE (A) TO TEST ALL ec OR TYPE DEVICEa 
NOSE TS RMINATE INPUT WITH CARRIAGE RETURNA 





Pll 


RMO3 Sp Ly 1 PART 2 
29-JUL-77 14:07" 


063676 


04 
MACY11 30(1046) 29-JUL-77 15:01 PAGE 256 
FUNCTION CODE TABLE 
-SBTTL FUNCTION CODE TABLE 


; THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOKS: 


ATA - BIT 1S IS SET IN THE FOR & GIVEN FUNCTION CODE 


[Ae 


IS NOT EXPECTED AS A RESULT 


tir antic GASES RIS ery OF THe COMEND. 
tre opt PrAons Ate Ens BB Uninc THe Exc On“Oe taal conan. 


Ive - BIT l2 IS IN THE ENTRY FOR A GIVEN TION CODE 
SIF IVC ERRORS ARE DURING THE EXECUTION OF THAT COMMAND. 


TH Te ENTRY FOR 0 On oe TIOn CODE 
if eet (Fieeizp Duin The BECUTION OF THAT Comme. 
soe amwalG BEECHES TIM IME ENTRY FoR, 8 g1ven FUNCTION CODE 

ine reso" Sond Raia ARLIMET Gat 
oe PURE BE He hee ae, 


BIT 08 IS NOT USED. 


iE cet cell RRS DUR Ne The be ae B Tre execu cUTfON0 NAT COMRAND.. 


ohces, “FER. 4 » AND “BSE”. 

Lue para Fleto nme BPE EVLED CURING Te EXECUTION GF TT 
; BIT OS IS NOT USED. 

; BIT OY IS NOT USED. 

; BIT 03 IS NOT USED. 

; BIT O2 IS NOT USED. 

; BIT 01 IS NOT USED. 

; ILF - BIT OO IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCOTB: ;FUNCTION CODE TABLE 





SEQ 0258 


SEQ 0259 


LOY 


DZRMDA = AMOS FUNCTIONAL TEST, PART 2 ACYL 90(046) Pa-JUL-77 18:01 PAGE 257 


eek FUNCTION (2) 


: nee eee ae zz 
— 


fe 
= 


ae RRR RRR 2-- en-m_ a= 


GO HaeSeee ShR 58 ze 


—— at ee et ee et ee ee rer aes ° 


SS SSSESSSSSRES 255 5S 
i 22 aan _—- 
sith r oes 

te 
$=-9 


eng 





iencisecacmeapoSaooeS 
en ee mSSeessee 
eeSeaC aaa Soa anmaammae 


-_ 





SSSSITSTSSTSSLSASASSSSSSSSSSSSABD 


ge SEES GSS SEGSG Sas Secesea ee sececes 
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DZRMDA. P11 29-JUL-77 14:07 ATTENTION (ATA) TABLE 


-SBTTL ATTENTION (ATA) TABLE 


ATNTBL: .BYTE 1. 
ye 2. 


FREE 
BRSe 
BBSSoeRe 
22 

yEnnes 
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DZRMOA.P11 29-JUL-77 14:07 DATA PATTERN TABLE 
.SBTTL DATA PATTERN TABLE 
NB HOD Ts: 
064008 AIXED: 
& 15. 
31. 
Sil. 
De YC oa 
eo as 4095. 
PS abal 8191. 
064044 : 
DE HOME ONES: a 
CS ie 
vat 3 7 
D6 YC a nes. 
uDKS 
YO 3: 
is: : 
ZEROS: 
4. 
Ka 4 








SEQ 0262 


BOS 


29-JUL-77 15:01 PAGE 260 





BESS eee aac A RARE Cee Puree ear recA RCM 


od eG Od og rg tH te ed a a a dd ad ak ad ed md md wd wd 


53 
. —— SS SSSSSSSSeSemesssessascaneossssansanse 





COS 


JUL-77 15:01 


SEQ 0263 


PAGE 261 


: Riga caeEtehaet aaa noni dt 


1m 


MACY 11 
DATA PA 
ENRGDT : 


FUNCTIONAL TEST, PART 2 
eS TUL? 14:07 


1 heeenercereronron sn 


a) oN od od ah eg eh enh ed ey Ee oe 8) a ed OG ed a ed et oe 


= SSSSSSSSSSBSGSSOSSOSSSSESSEEsEnE 


PART 2 
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ERROR MESSAGE T 



















— 
t 


























































































































Pell’ E 

FTS42,5 

BT { Py a> »EMS16,0 
| 43, - 

M511, EMSc 

pet ’ aes! ’ 
i 11’ Eysou ENS30. 
= nat 1 8 = hp = = ba =S- ® 
+ 0 et as SK 
p511,EMScb, ENSe7, 
thd Els SH, 
Bt 4 2, ESTE, CTW, 
SITS 41, EFS 53, ETS, 
EMS11, EMSS, ENS, 
SMS 11, EMS35, EMS30, 
1,> 1 t i,-x, 4,~%! 8 
pS 11, ENS37, ENS20, 
44> i 9 TT IE, Q 
944, EITS LPS U, 
M511, EMo4e, ENS30, 
wy elt 13, FON, 
ETS 21, 007) ITS SU , 
44> 445 9 












7 


Re 


a 


Ls 
' 
— 










+ 


" 







s 







a 





f 





- 





+ 





+ — 






oe 
hae 





+ 





+ 





t+ 













! 
% 


f 









$ 


Crear Ereoue ENSL ISS ERGELSERETACO 
ENS72, ENS124, 0 


SEQ 0264 


EOS 


STS: Ot BUR reeo 


Y 
40 


115, EMS1S0, EMS1S2, EMS7e, 
EmS70,0 


,EMS143,EMS70,0 


EMS141 

EMS72, 
EMS72 

£MS70, 


4 
3 


EMS114,0 
14 
143 


thsi 
a 


0 
EMS140 
EMS141 

’ 

’ 

® 

’ 


1 


1 
1 a 
115; EMSS 
163,0 
3 5115, EMSSO, 
brs) EMS115 
° ,0 
16, Te 


63 

ll 
L 

at 

1 

1 





EMS171 





w 
=o 
= 
1,08 o eo af 
+ =— 
ge 7 —_ of “ 
- Seb Rey rye bbe 
Sg op anno AT 
£ PU PPR PS rib tron nnn np rrp nnn A etestestestettetetated 
rs hae ri om = Soi awit wee aied 
3 Peay f A=: HERESSE tote rt teh Sie eoceeveeds 





BSoSGSsst PSSST PPS BORRDRR 
2 pk ee ee eee, Ee — eR red ed ed ee ee oe ed ad ed Oe eG Od ed eg ed ed EH Re 
S55 


rintitntntntntntatatntatstatatatatatatatatetatatetatestatestet attest atetatetestetetestctetetet teste 


> 
Wuuuuuuduvuuuuaeuus 
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ERROR MESSAGE TABLE 















i Bais Baim pew 
Freie Bets: 


40,0 









+ 









+ 








a 





fff, 





— 
' 


















































Eco) Eee 

= bec aS She 4 

Ee Ea Cy 

Eee Ew 
~—r> + 

>MS 150. EMS 

> MSSL 

3 5! Fi 

44-4 

4, 





~~ 





t '" 





§ EMS] 


= 


15 ore 4s, ErS2, 0 





ie. 4 
EMS Se ENS206 , EMS115, ENSS1,ENS72, 0 


— 


™s163,0 





+ 


itt 
+ 4b 4 









ad 
fi, 









24 


2 


‘ie EMS167,EMS132, ENS207,0 


ERSFRRRSRFRR FERRETS ata 
FELERERBRERME CRED = t 
SRERSRERVS EHSOKER 
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ERROR MESSAGE TABLE 
»EMS125,0 
’ 0 
EMS210, EMS26, EMS27,0 








¢ a 


" 







f; 






t 





t 
a 
f; 





" 
wi 
7 


f 
bi 


BA 











141; 0 
1 ,0 
115, EMS1 “sfc so" EMS72,,0 







7 
ee 


+ 










' 


if + 
P 


t 





— 
- 
44 


— 
t 
"] 





" 
5 
ols 









t 







sa 






A rete 


+ 







,ENS115, EMS143, EMS70, 0 


+ 





+ 


" 





t 
14 





— 


r 
SI 






— 
ach 





J + 














t 







rr) 
t 















ix 

: 
p | i,~ 
EMT Ee ,ENS175,0 
ULE bee 1S, 






ee 


— 
AtAtAtAtaAtat 





» ee. : 
LER Baile oer, 








HOS 
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RMOS FUNCTIONAL TEST, PART 2 
1 29-JU-77 14507 





105 
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ABLE 


SEQ 0269 


) 
T 


RMO3 FUNCTIONAL TEST, PART 2 MACY11 30(104% 
1 29-JUL-77 14:07 


DZRMDA - 
OZRMDA.P1 


SH4,0 

0 

STSH4 

STSH4 
SH4,0 
SHY, 0 


ST 
ST 
ST 


T 
] 
s 
’ 
: 


1, STSH2,S 
»STSH2 

, STSHe 
»STSHe 
STSH1, STSHe 
STSH1, STSHE 


‘aT 
0 
0 
STSH1 
STSH1 
. STSH1 
EHT3S3: .WORD €H3S3,0 


1,S 

1 
ai 
lll 
EH114 
EHeS& 
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DZRMOA.P1 29-JUL-77 14:07 ERROR MESSAGE TABLE 


‘1858 1802 00st Ebt2: ‘bond Stsbi,srsbe,srsb 
Groove ibases Hit: show EDIL 
74 10037¢ EDT114: .WORD D114 
76 100400 100444 100462 EDT2e3: ‘WORD  EDe23,STSD1,STSO2, STSD4 
Gracie 1Oeias ISbvN Ides Edtaas: <Mioem EDSa»: S781; tebe: S185 
100422 100444 100462 EDT344: ‘WORD  £D337,STSD1,STSDe, STSOY,0 
070740 100434 EDT3S3: .WORD  ED3S3 
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OZRMOA.P11  29-JUL-77 14:07' ERROR MESSAGE TABLE 


Groves 1BGees i8GeNe looses Erte: 
a7o7e2 iar EFTLit: 
Groree 180831 soosvs ooses EFtze3: 


crit STSF , STSF , STSF 
STSF , STSF , STSF 


Fill 


Eris, 
114, STSF ,STSF , STSF 


igs (ES RS ES 
071026 100531 EFT3S3: EFi14 


LOS 
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SEQ 0272 


» PART 2 


RMO3 FUNCTIONAL TEST 
1 29-JUL-77 14:07 


OZRMDA - 
OZRMOA.P1 


-SBTTL ERROR MESSAGE STRINGS 





c 
fen) ~ 
rr) = pa 
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